@@ -248,7 +248,7 @@ staticAppPieces (StaticSettings folder indices mlisting getmime) pieces _ = lift
248 cp <- checkPieces folder indices pieces
248 cp <- checkPieces folder indices pieces
249 case cp of
249 case cp of
250 Redirect pieces' -> do
250 Redirect pieces' -> do
251− let loc = S8.pack $ '/' : encodePathInfo pieces' []
251+ let loc = S8.pack $ (concatMap (const "../") $ drop 1 pieces) ++ encodePathInfo pieces' []
252 return $ W.responseLBS W.status301
252 return $ W.responseLBS W.status301
253 [ ("Content-Type", "text/plain")
253 [ ("Content-Type", "text/plain")
254 , ("Location", loc)
254 , ("Location", loc)