diff --git a/Data/GPS/Trail.hs b/Data/GPS/Trail.hs
--- a/Data/GPS/Trail.hs
+++ b/Data/GPS/Trail.hs
@@ -94,7 +94,7 @@
   getTimeDiff a b = on (liftM2 diffUTCTime) getUTCTime a b
   
   --  getAvg :: [] -> AvgMethod -> Speed
-  getAvg cs AvgMean =
+  getAvg cs m =
     let ss = getSpeedsV cs
     in case m of
         AvgMean -> mean ss
diff --git a/gps.cabal b/gps.cabal
--- a/gps.cabal
+++ b/gps.cabal
@@ -1,5 +1,5 @@
 name:		gps
-version:	0.8
+version:	0.8.0.1
 license:	BSD3
 license-file:	LICENSE
 author:		Thomas DuBuisson <thomas.dubuisson@gmail.com>