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
@@ -67,7 +67,7 @@
 
 -- | Reads 0 or more GPX files into a list of @Gpx@ values removing whitespace.
 readGpxFiles :: [FilePath] -> IO [Gpx]
-readGpxFiles = fmap join . (mapM readGpxFile)
+readGpxFiles = fmap join . mapM readGpxFile
 
 -- | Reads a GPX file, executes the given function on the XML, then writes the given file.
 interactGpxIO' :: Attributes -- ^ The options for reading the GPX file.
@@ -139,4 +139,4 @@
 sum' = foldl' (.) id
 
 sumIO' :: (Monad m) => [a -> m a] -> a -> m a
-sumIO' x = foldl' (>=>) return x
+sumIO' = foldl' (>=>) return
diff --git a/Data/Geo/GPX/TrksegType.hs b/Data/Geo/GPX/TrksegType.hs
--- a/Data/Geo/GPX/TrksegType.hs
+++ b/Data/Geo/GPX/TrksegType.hs
@@ -19,7 +19,7 @@
 trksegType = TrksegType
 
 instance XmlPickler TrksegType where
-  xpickle = xpWrap (\(trkpt', extensions') -> trksegType trkpt' extensions', \(TrksegType trkpt' extensions') -> (trkpt', extensions')) (xpPair
+  xpickle = xpWrap (uncurry trksegType, \(TrksegType trkpt' extensions') -> (trkpt', extensions')) (xpPair
               (xpList (xpElem "trkpt" xpickle))
               (xpOption (xpElem "extensions" xpickle)))
 
diff --git a/GPX.cabal b/GPX.cabal
--- a/GPX.cabal
+++ b/GPX.cabal
@@ -1,14 +1,14 @@
 Name:                GPX
-Version:             0.4.7
+Version:             0.4.8
 License:             BSD3
 License-File:        LICENSE
 Synopsis:            Parse GPX files
 Description:         Parse GPS Exchange (GPX) files using HXT into data structures.
 Homepage:            http://code.google.com/p/geo-gpx/
 Category:            Utils
-Author:              Tony Morris
-Maintainer:          code@tmorris.net
-Copyright:           2009 Tony Morris
+Author:              Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
+Maintainer:          Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
+Copyright:           2009, 2010, 2011 Tony Morris
 build-type:          Simple
 cabal-version:       >= 1.2
 
@@ -17,9 +17,9 @@
 
 Library
   if flag(small_base)
-    Build-Depends: base < 4 && >= 3, hxt, hxt-extras, containers, xsd
+    Build-Depends: base < 5 && >= 3, hxt, hxt-extras, containers, xsd
   else
-    Build-Depends: base < 3, hxt, hxt-extras, containers, xsd
+    Build-Depends: base < 5 && >= 3, hxt, hxt-extras, containers, xsd
 
   GHC-Options:    -Wall
   Exposed-Modules: Data.Geo.GPX