Fix a bottom
commitc57c9074997125282663e5e1bc4f2ce2efa271e3
authorMichael Snoyman <michael@snoyman.com>
dateFri 22 Jul 2011, 10:49 (15 years ago)
parent239a9bf
Network/Wai/Application/Static.hs+1−1
@@ -671,7 +671,7 @@ defaultListing pieces (Folder _ contents) = do
671671 showFolder (x:xs) = do
672672 let href = concat $ replicate (length xs) "../" :: String
673673 H.a ! A.href (H.toValue href) $ H.toHtml $ showName x
674− () <- " / "
674+ " / " :: H.Html
675675 showFolder xs
676676
677677-- | a function to generate an HTML table showing the contents of a directory on the disk