Data.Geo.Coordinate.DegreesLatitude

Documentation

data DegreesLatitude

Instances

Eq DegreesLatitude

Ord DegreesLatitude

Show DegreesLatitude

AsDegreesLatitude p f DegreesLatitude

(Choice p, Applicative f) => AsCoordinate p f ((DegreesLatitude, Minutes, Seconds), Double)

(Profunctor p, Functor f) => AsCoordinate p f ((DegreesLongitude, Minutes, Seconds), (DegreesLatitude, Minutes, Seconds))

(Profunctor p, Functor f) => AsCoordinate p f ((DegreesLatitude, Minutes, Seconds), (DegreesLongitude, Minutes, Seconds))

(Profunctor p, Functor f) => AsCoordinate p f (Longitude, (DegreesLatitude, Minutes, Seconds))

(Profunctor p, Functor f) => AsCoordinate p f ((DegreesLatitude, Minutes, Seconds), Longitude)

(Profunctor p, Functor f) => AsLatitude p f (DegreesLatitude, Minutes, Seconds)

An isomorphism on the triple of degrees latitude, minutes, seconds to a latitude.

>>> do deg <- (7 :: Int) ^? _DegreesLatitude; min <- (7 :: Int) ^? _Minutes; sec <- (7 :: Double) ^? _Seconds; (deg, min, sec) ^? _Latitude :: Maybe Latitude
Just (Latitude (DegreesLatitude 7) (Minutes 7) (Seconds 7.0000))

>>> do deg <- (89 :: Int) ^? _DegreesLatitude; min <- (59 :: Int) ^? _Minutes; sec <- (59 :: Double) ^? _Seconds; (deg, min, sec) ^? _Latitude :: Maybe Latitude
Just (Latitude (DegreesLatitude 89) (Minutes 59) (Seconds 59.0000))

>>> do deg <- (-7 :: Int) ^? _DegreesLatitude; min <- (7 :: Int) ^? _Minutes; sec <- (7 :: Double) ^? _Seconds; (deg, min, sec) ^? _Latitude :: Maybe Latitude
Just (Latitude (DegreesLatitude (-7)) (Minutes 7) (Seconds 7.0000))

>>> do deg <- (-89 :: Int) ^? _DegreesLatitude; min <- (59 :: Int) ^? _Minutes; sec <- (59 :: Double) ^? _Seconds; (deg, min, sec) ^? _Latitude :: Maybe Latitude
Just (Latitude (DegreesLatitude (-89)) (Minutes 59) (Seconds 59.0000))

>>> do deg <- (90 :: Int) ^? _DegreesLatitude; min <- (59 :: Int) ^? _Minutes; sec <- (59 :: Double) ^? _Seconds; (deg, min, sec) ^? _Latitude :: Maybe Latitude
Nothing

>>> do deg <- (89 :: Int) ^? _DegreesLatitude; min <- (60 :: Int) ^? _Minutes; sec <- (59 :: Double) ^? _Seconds; (deg, min, sec) ^? _Latitude :: Maybe Latitude
Nothing

>>> do deg <- (89 :: Int) ^? _DegreesLatitude; min <- (59 :: Int) ^? _Minutes; sec <- (60 :: Double) ^? _Seconds; (deg, min, sec) ^? _Latitude :: Maybe Latitude
Nothing

>>> fmap (\x -> _Latitude # x :: (DegreesLatitude, Minutes, Seconds))  ((7 :: Double) ^? _Latitude :: Maybe Latitude)
Just (DegreesLatitude 7,Minutes 0,Seconds 0.0000)

>>> fmap (\x -> _Latitude # x :: (DegreesLatitude, Minutes, Seconds))  ((7.12 :: Double) ^? _Latitude :: Maybe Latitude)
Just (DegreesLatitude 7,Minutes 7,Seconds 12.0000)

class AsDegreesLatitude p f s where

Minimal complete definition

Nothing

Methods

_DegreesLatitude :: Optic' p f s DegreesLatitude

Instances

(Choice p, Applicative f) => AsDegreesLatitude p f Int

A prism on degrees latitude to an integer between -90 and 90 exclusive.

>>> (7 :: Int) ^? _DegreesLatitude
Just (DegreesLatitude 7)

>>> (0 :: Int) ^? _DegreesLatitude
Just (DegreesLatitude 0)

>>> (89 :: Int) ^? _DegreesLatitude
Just (DegreesLatitude 89)

>>> (90 :: Int) ^? _DegreesLatitude
Nothing

>>> (-89 :: Int) ^? _DegreesLatitude
Just (DegreesLatitude (-89))

>>> (-90 :: Int) ^? _DegreesLatitude
Nothing

all (\m -> _DegreesLatitude # m == (n :: Int)) (n ^? _DegreesLatitude)

AsDegreesLatitude p f DegreesLatitude

((~) (* -> * -> *) p (->), Functor f) => AsDegreesLatitude p f Latitude

((~) (* -> * -> *) p (->), Functor f) => AsDegreesLatitude p f Coordinate

remDegreesLatitude :: Int -> DegreesLatitude

Setting a value >= 90 will get that value (rem 90).

>>> remDegreesLatitude 7
DegreesLatitude 7

>>> remDegreesLatitude 0
DegreesLatitude 0

>>> remDegreesLatitude 90
DegreesLatitude 0

>>> remDegreesLatitude 1
DegreesLatitude 1

>>> remDegreesLatitude 89
DegreesLatitude 89