@@ -247,16 +247,17 @@ data StaticSettings = StaticSettings
248staticApp :: StaticSettings -> W.Application
248staticApp :: StaticSettings -> W.Application
249staticApp set req = do
249staticApp set req = do
250− let pieces = map T.unpack $ W.pathInfo req -- FIXME stick with Text
250+ let pieces = W.pathInfo req
251 staticAppPieces set pieces req
251 staticAppPieces set pieces req
253−staticAppPieces :: StaticSettings -> [String] -> W.Application
253+staticAppPieces :: StaticSettings -> [T.Text] -> W.Application
254staticAppPieces _ _ req
254staticAppPieces _ _ req
255 | W.requestMethod req /= "GET" = return $ W.responseLBS
255 | W.requestMethod req /= "GET" = return $ W.responseLBS
256 H.status405
256 H.status405
257 [("Content-Type", "text/plain")]
257 [("Content-Type", "text/plain")]
258 "Only GET is supported"
258 "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
260 cp <- checkPieces folder indices pieces
261 cp <- checkPieces folder indices pieces
261 case cp of
262 case cp of
262 Redirect pieces' -> do
263 Redirect pieces' -> do