diff --git a/Network/Wai/Application/Static.hs b/Network/Wai/Application/Static.hs
--- a/Network/Wai/Application/Static.hs
+++ b/Network/Wai/Application/Static.hs
@@ -26,6 +26,7 @@
       -- * WAI application
     , StaticSettings (..)
     , staticApp
+    , staticAppPieces
     ) where
 
 import qualified Network.Wai as W
@@ -233,13 +234,17 @@
     }
 
 staticApp :: StaticSettings -> W.Application
-staticApp _ req
+staticApp set req = do
+    let pieces = decodePathInfo $ S8.unpack $ W.pathInfo req
+    staticAppPieces set pieces req
+
+staticAppPieces :: StaticSettings -> [String] -> W.Application
+staticAppPieces _ _ req
     | W.requestMethod req /= "GET" = return $ W.responseLBS
         W.status405
         [("Content-Type", "text/plain")]
         "Only GET is supported"
-staticApp (StaticSettings folder indices mlisting getmime) req = liftIO $ do
-    let pieces = decodePathInfo $ S8.unpack $ W.pathInfo req
+staticAppPieces (StaticSettings folder indices mlisting getmime) pieces _ = liftIO $ do
     cp <- checkPieces folder indices pieces
     case cp of
         Redirect pieces' -> do
diff --git a/wai-app-static.cabal b/wai-app-static.cabal
--- a/wai-app-static.cabal
+++ b/wai-app-static.cabal
@@ -1,5 +1,5 @@
 name:            wai-app-static
-version:         0.0.0
+version:         0.0.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>