diff --git a/happstack-server.cabal b/happstack-server.cabal
--- a/happstack-server.cabal
+++ b/happstack-server.cabal
@@ -1,5 +1,5 @@
 Name:                happstack-server
-Version:             0.5.0.3
+Version:             0.5.0.4
 Synopsis:            Web related tools and services.
 Description:         Web framework
 License:             BSD3
@@ -65,8 +65,8 @@
                        filepath,
                        HaXml >= 1.13 && < 1.14,
                        hslogger >= 1.0.2,
-                       happstack-data >= 0.5 && < 0.6,
-                       happstack-util >= 0.5 && < 0.6,
+                       happstack-data >= 0.5 && < 0.5.1,
+                       happstack-util >= 0.5 && < 0.5.1,
                        html,
                        MaybeT,
                        mtl >= 1.1 && < 2.1,
diff --git a/src/Happstack/Server/Parts.hs b/src/Happstack/Server/Parts.hs
--- a/src/Happstack/Server/Parts.hs
+++ b/src/Happstack/Server/Parts.hs
@@ -128,7 +128,10 @@
 encodings :: GenParser Char st [([Char], Maybe Double)]
 encodings = ws >> (encoding1 `sepBy` try sep) >>= (\x -> ws >> eof >> return x)
     where
+        ws :: GenParser Char st ()
         ws = many space >> return ()
+
+        sep :: GenParser Char st ()
         sep = do
             ws
             _ <- char ','
@@ -140,11 +143,17 @@
             ws
             quality<-optionMaybe qual
             return (encoding, fmap read quality)
+
+        qual :: GenParser Char st String
         qual = do
             char ';' >> ws >> char 'q' >> ws >> char '=' >> ws
             q<-float
             return q
+
+        int :: GenParser Char st String
         int = many1 digit
+
+        float :: GenParser Char st String
         float = do
                 wholePart<-many1 digit
                 fractionalPart<-option "" fraction