diff --git a/hack2-contrib.cabal b/hack2-contrib.cabal
--- a/hack2-contrib.cabal
+++ b/hack2-contrib.cabal
@@ -1,5 +1,5 @@
 Name:                 hack2-contrib
-Version:              2013.6.22
+Version:              2013.7.18
 Build-type:           Simple
 Synopsis:             Hack2 contrib
 Description:          Common middlewares and utilities for Hack2
@@ -27,7 +27,7 @@
                   , bytestring
                   , data-default
                   , time
-                  , air >= 2013.6.22
+                  , air >= 2013.7.18
                   , hack2
                   , utf8-string
                   
diff --git a/src/Hack2/Contrib/Middleware/File.hs b/src/Hack2/Contrib/Middleware/File.hs
--- a/src/Hack2/Contrib/Middleware/File.hs
+++ b/src/Hack2/Contrib/Middleware/File.hs
@@ -4,7 +4,7 @@
 -- | Stolen from rack: serves files below the +root+ given, according to the 
 --   path info of the Rack request.
 
-module Hack2.Contrib.Middleware.File (file) where
+module Hack2.Contrib.Middleware.File (file, serve) where
 
 import Data.Default
 import Data.List (isInfixOf)
diff --git a/src/Hack2/Contrib/Request.hs b/src/Hack2/Contrib/Request.hs
--- a/src/Hack2/Contrib/Request.hs
+++ b/src/Hack2/Contrib/Request.hs
@@ -69,7 +69,7 @@
 params env =
   if env.query_string.B.unpack.all isSpace
     then []
-    else env.query_string.B.unpack.formDecode.map_both B.pack
+    else env.query_string.B.unpack.formDecode.map_both (u2b > B.pack)
 
 inputs :: Env -> IO [(ByteString, ByteString)]
 inputs env = do
diff --git a/src/Hack2/Contrib/Utils.hs b/src/Hack2/Contrib/Utils.hs
--- a/src/Hack2/Contrib/Utils.hs
+++ b/src/Hack2/Contrib/Utils.hs
@@ -26,8 +26,7 @@
 
 -- | usage: app.use [content_type, cache]
 use :: [Middleware] -> Middleware
-use [] = id
-use xs = xs.reduce (<<<)
+use = inject id (<)
 
 -- use the get / put helper to deal with headers
 put :: (Eq a) => a -> b -> [(a, b)] -> [(a, b)]