coordinate 0.0.11 → 0.0.12

raw patch · 3 files changed

+5/−61 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• changelog +4/−0
• coordinate.cabal +1/−1
• src/Data/Geo/Coordinate/Longitude.hs +0/−60

@@ -1,3 +1,7 @@+0.0.12++* Remove extraneous frac Prism+ 0.0.11  * Use Optic to overload lenses, prisms and isos.

@@ -1,5 +1,5 @@ name:               coordinate-version:            0.0.11+version:            0.0.12 license:            BSD3 license-file:       LICENCE author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>

@@ -6,7 +6,6 @@ module Data.Geo.Coordinate.Longitude(   Longitude , AsLongitude(..)-, AsFracLongitude(..) ) where  import Control.Applicative(Applicative)@@ -113,65 +112,6 @@ -- Just 179.25166666666667 instance (Choice p, Applicative f) => AsLongitude p f Double where   _Longitude =-    prism' (\(Longitude d m s) ->-      let p = fromIntegral (_DegreesLongitude # d :: Int)-          q = (fromIntegral (_Minutes # m :: Int) / 60) + (_Seconds # s) / 3600-      in (if p < 0 then (-) else (+)) p q)-      (\x -> let (d, z) = properFraction x-                 (m, s) = properFraction ((z :: Double) * 60)-             in do d' <- (d :: Int) ^? _DegreesLongitude-                   m' <- (abs m :: Int) ^? _Minutes-                   s' <- (abs s * 60) ^? _Seconds-                   return (Longitude d' m' s'))----- | A prism on longitude to a double between -180 and 180 exclusive.-class AsFracLongitude t where-  fracLongitude ::-    Prism' Double t---- | A prism on longitude to a double between -180 and 180 exclusive.------ >>> 7 ^? fracLongitude :: Maybe Longitude--- Just (Longitude (DegreesLongitude 7) (Minutes 0) (Seconds 0.0000))------ >>> (-7) ^? fracLongitude :: Maybe Longitude--- Just (Longitude (DegreesLongitude (-7)) (Minutes 0) (Seconds 0.0000))------ >>> 7.12 ^? fracLongitude :: Maybe Longitude--- Just (Longitude (DegreesLongitude 7) (Minutes 7) (Seconds 12.0000))------ >>> (-7.12) ^? fracLongitude :: Maybe Longitude--- Just (Longitude (DegreesLongitude (-7)) (Minutes 7) (Seconds 12.0000))------ >>> fmap (fracLongitude #) (7.12 ^? fracLongitude :: Maybe Longitude)--- Just 7.12------ >>> fmap (fracLongitude #) ((-7.12) ^? fracLongitude :: Maybe Longitude)--- Just (-7.12)------ >>> 180 ^? fracLongitude :: Maybe Longitude--- Nothing------ >>> (-180) ^? fracLongitude :: Maybe Longitude--- Nothing------ >>> 15.63791 ^? fracLongitude :: Maybe Longitude--- Just (Longitude (DegreesLongitude 15) (Minutes 38) (Seconds 16.4760))------ >>> 179.1 ^? fracLongitude :: Maybe Longitude--- Just (Longitude (DegreesLongitude 179) (Minutes 5) (Seconds 60.0000))------ >>> 179.2 ^? fracLongitude :: Maybe Longitude--- Just (Longitude (DegreesLongitude 179) (Minutes 11) (Seconds 60.0000))------ >>> fmap (fracLongitude #) (do deg <- (7 :: Int) ^? _DegreesLongitude; min <- (7 :: Int) ^? _Minutes; sec <- (7 :: Double) ^? _Seconds; (deg, min, sec) ^? _Longitude :: Maybe Longitude)--- Just 7.118611111111111------ >>> fmap (fracLongitude #) (do deg <- (179 :: Int) ^? _DegreesLongitude; min <- (15 :: Int) ^? _Minutes; sec <- (6 :: Double) ^? _Seconds; (deg, min, sec) ^? _Longitude :: Maybe Longitude)--- Just 179.25166666666667-instance AsFracLongitude Longitude where-  fracLongitude =     prism' (\(Longitude d m s) ->       let p = fromIntegral (_DegreesLongitude # d :: Int)           q = (fromIntegral (_Minutes # m :: Int) / 60) + (_Seconds # s) / 3600