@@ -671,7 +671,7 @@ defaultListing pieces (Folder _ contents) = do
671 showFolder (x:xs) = do
671 showFolder (x:xs) = do
672 let href = concat $ replicate (length xs) "../" :: String
672 let href = concat $ replicate (length xs) "../" :: String
673 H.a ! A.href (H.toValue href) $ H.toHtml $ showName x
673 H.a ! A.href (H.toValue href) $ H.toHtml $ showName x
674− () <- " / "
674+ " / " :: H.Html
675 showFolder xs
675 showFolder xs
677-- | a function to generate an HTML table showing the contents of a directory on the disk
677-- | a function to generate an HTML table showing the contents of a directory on the disk