module JSDOM.Generated.Coordinates
(getLatitude, getLongitude, getAltitude, getAltitudeUnchecked,
getAccuracy, getAltitudeAccuracy, getAltitudeAccuracyUnchecked,
getHeading, getHeadingUnchecked, getSpeed, getSpeedUnchecked,
Coordinates, castToCoordinates, gTypeCoordinates)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
getLatitude :: (MonadDOM m) => Coordinates -> m Double
getLatitude self
= liftDOM ((self ^. js "latitude") >>= valToNumber)
getLongitude :: (MonadDOM m) => Coordinates -> m Double
getLongitude self
= liftDOM ((self ^. js "longitude") >>= valToNumber)
getAltitude :: (MonadDOM m) => Coordinates -> m (Maybe Double)
getAltitude self = liftDOM ((self ^. js "altitude") >>= fromJSVal)
getAltitudeUnchecked :: (MonadDOM m) => Coordinates -> m Double
getAltitudeUnchecked self
= liftDOM ((self ^. js "altitude") >>= fromJSValUnchecked)
getAccuracy :: (MonadDOM m) => Coordinates -> m Double
getAccuracy self
= liftDOM ((self ^. js "accuracy") >>= valToNumber)
getAltitudeAccuracy ::
(MonadDOM m) => Coordinates -> m (Maybe Double)
getAltitudeAccuracy self
= liftDOM ((self ^. js "altitudeAccuracy") >>= fromJSVal)
getAltitudeAccuracyUnchecked ::
(MonadDOM m) => Coordinates -> m Double
getAltitudeAccuracyUnchecked self
= liftDOM ((self ^. js "altitudeAccuracy") >>= fromJSValUnchecked)
getHeading :: (MonadDOM m) => Coordinates -> m (Maybe Double)
getHeading self = liftDOM ((self ^. js "heading") >>= fromJSVal)
getHeadingUnchecked :: (MonadDOM m) => Coordinates -> m Double
getHeadingUnchecked self
= liftDOM ((self ^. js "heading") >>= fromJSValUnchecked)
getSpeed :: (MonadDOM m) => Coordinates -> m (Maybe Double)
getSpeed self = liftDOM ((self ^. js "speed") >>= fromJSVal)
getSpeedUnchecked :: (MonadDOM m) => Coordinates -> m Double
getSpeedUnchecked self
= liftDOM ((self ^. js "speed") >>= fromJSValUnchecked)