diff --git a/Data/Geo/GPX/Accessor/Latlon.hs b/Data/Geo/GPX/Accessor/Latlon.hs
--- a/Data/Geo/GPX/Accessor/Latlon.hs
+++ b/Data/Geo/GPX/Accessor/Latlon.hs
@@ -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)
 
diff --git a/Data/Geo/GPX/Gpx.hs b/Data/Geo/GPX/Gpx.hs
--- a/Data/Geo/GPX/Gpx.hs
+++ b/Data/Geo/GPX/Gpx.hs
@@ -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
diff --git a/Data/Geo/GPX/GpxType.hs b/Data/Geo/GPX/GpxType.hs
--- a/Data/Geo/GPX/GpxType.hs
+++ b/Data/Geo/GPX/GpxType.hs
@@ -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
diff --git a/Data/Geo/GPX/TrkType.hs b/Data/Geo/GPX/TrkType.hs
--- a/Data/Geo/GPX/TrkType.hs
+++ b/Data/Geo/GPX/TrkType.hs
@@ -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
diff --git a/GPX.cabal b/GPX.cabal
--- a/GPX.cabal
+++ b/GPX.cabal
@@ -1,5 +1,5 @@
 Name:                GPX
-Version:             0.2
+Version:             0.3
 License:             BSD3
 License-File:        LICENSE
 Synopsis:            Parse GPX files