GPX 0.2 → 0.3
raw patch · 5 files changed
+16/−6 lines, 5 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Data.Geo.GPX.Gpx: instance Rtepts Gpx
+ Data.Geo.GPX.Gpx: instance Trkpts Gpx
+ Data.Geo.GPX.GpxType: instance Rtepts GpxType
+ Data.Geo.GPX.GpxType: instance Trkpts GpxType
+ Data.Geo.GPX.TrkType: instance Trkpts TrkType
Files
- Data/Geo/GPX/Accessor/Latlon.hs +0/−4
- Data/Geo/GPX/Gpx.hs +3/−1
- Data/Geo/GPX/GpxType.hs +8/−0
- Data/Geo/GPX/TrkType.hs +4/−0
- GPX.cabal +1/−1
Data/Geo/GPX/Accessor/Latlon.hs view
@@ -2,10 +2,6 @@ module Data.Geo.GPX.Accessor.Latlon where -import Data.Geo.GPX.LatitudeType-import Data.Geo.GPX.LongitudeType-import Data.Geo.GPX.Accessor.Value- class Latlon a where latlon :: a -> (Double, Double)
Data/Geo/GPX/Gpx.hs view
@@ -26,9 +26,11 @@ import Data.Geo.GPX.Accessor.Time import Data.Geo.GPX.Accessor.Keywords import Data.Geo.GPX.Accessor.Bounds+import Data.Geo.GPX.Accessor.Rtepts+import Data.Geo.GPX.Accessor.Trkpts newtype Gpx = Gpx GpxType- deriving (Eq, Version, Creator, Metadata, Wpts, Rtes, Trks, Extensions, Name, Desc, Copyright, Links, Time, Keywords, Bounds)+ deriving (Eq, Version, Creator, Metadata, Wpts, Rtes, Trks, Extensions, Name, Desc, Copyright, Links, Time, Keywords, Bounds, Rtepts, Trkpts) instance Author Gpx (Maybe PersonType) where author = author . value
Data/Geo/GPX/GpxType.hs view
@@ -27,6 +27,8 @@ import Data.Geo.GPX.Accessor.Time import Data.Geo.GPX.Accessor.Keywords import Data.Geo.GPX.Accessor.Bounds+import Data.Geo.GPX.Accessor.Rtepts+import Data.Geo.GPX.Accessor.Trkpts import Text.XML.HXT.Arrow import Text.XML.HXT.Extras import Data.Maybe@@ -99,3 +101,9 @@ instance Bounds GpxType where bounds = (bounds =<<) . metadata++instance Rtepts GpxType where+ rtepts = (rtepts =<<) . rtes++instance Trkpts GpxType where+ trkpts = (trkpts =<<) . trks
Data/Geo/GPX/TrkType.hs view
@@ -16,6 +16,7 @@ import Data.Geo.GPX.Accessor.Type import Data.Geo.GPX.Accessor.Extensions import Data.Geo.GPX.Accessor.Trksegs+import Data.Geo.GPX.Accessor.Trkpts import Text.XML.HXT.Arrow import Text.XML.HXT.Extras @@ -72,3 +73,6 @@ instance Trksegs TrkType where trksegs (TrkType _ _ _ _ _ _ _ _ x) = x++instance Trkpts TrkType where+ trkpts = (trkpts =<<) . trksegs
GPX.cabal view
@@ -1,5 +1,5 @@ Name: GPX-Version: 0.2+Version: 0.3 License: BSD3 License-File: LICENSE Synopsis: Parse GPX files