coordinate-0.0.1: src/Data/GPS/Coordinate/DegreesLatitude.hs

module Data.GPS.Coordinate.DegreesLatitude(
  DegreesLatitude
, degreesLatitude
) where

import Prelude(Int, Bool(..), Eq, Show, Ord(..), (&&))
import Data.Maybe(Maybe(..))
import Control.Lens(Prism', prism')

newtype DegreesLatitude =
  DegreesLatitude Int
  deriving (Eq, Show)

degreesLatitude ::
  Prism' Int DegreesLatitude
degreesLatitude =
  prism'
    (\(DegreesLatitude i) -> i)
    (\i -> case i >= -90 && i <= 90 of
             True -> Just (DegreesLatitude i)
             False -> Nothing)