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