@@ -247,16 +247,17 @@ data StaticSettings = StaticSettings
247247
248248staticApp :: StaticSettings -> W.Application
249249staticApp set req = do
250− let pieces = map T.unpack $ W.pathInfo req -- FIXME stick with Text
250+ let pieces = W.pathInfo req
251251 staticAppPieces set pieces req
252252
253−staticAppPieces :: StaticSettings -> [String] -> W.Application
253+staticAppPieces :: StaticSettings -> [T.Text] -> W.Application
254254staticAppPieces _ _ req
255255 | W.requestMethod req /= "GET" = return $ W.responseLBS
256256 H.status405
257257 [("Content-Type", "text/plain")]
258258 "Only GET is supported"
259−staticAppPieces (StaticSettings folder indices mlisting getmime) pieces _ = liftIO $ do
259+staticAppPieces (StaticSettings folder indices mlisting getmime) piecesT _ = liftIO $ do
260+ let pieces = map T.unpack piecesT -- FIXME stick with Text
260261 cp <- checkPieces folder indices pieces
261262 case cp of
262263 Redirect pieces' -> do