@@ -1,5 +1,6 @@
11{-# LANGUAGE CPP #-}
22{-# LANGUAGE OverloadedStrings #-}
3+{-# LANGUAGE ViewPatterns #-}
34module WaiAppStatic.Listing
45 ( defaultListing
56 ) where
@@ -104,7 +105,10 @@ renderDirectoryContentsTable haskellSrc folderSrc fps =
104105 Left{} -> H.img ! A.src (H.toValue folderSrc)
105106 ! A.alt "Folder"
106107 Right{} -> return ()
107− let name = either id fileName md
108+ let name =
109+ case either id fileName md of
110+ (fromPiece -> "") -> unsafeToPiece ".."
111+ x -> x
108112 let isFile = either (const False) (const True) md
109113 H.td (H.a ! A.href (H.toValue $ fromPiece name `T.append` if isFile then "" else "/") $ H.toHtml $ fromPiece name)
110114 H.td ! A.class_ "date" $ H.toHtml $