packages feed

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 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