Merge pull request #594 from supermario/master
URL now seems to be squatted by spam redirector
commit4ddd69be079a2ce755c113bff9b2d84bf85f853c
authorMichael Snoyman <michael@snoyman.com>
dateSat 26 Nov 2016, 17:34 (10 years ago)
parentec3ddf78ab0ac7
wai-app-static/WaiAppStatic/Listing.hs+1−1
@@ -22,7 +22,7 @@ import qualified Text.Blaze.Html.Renderer.Utf8 as HU
2222
2323-- | Provides a default directory listing, suitable for most apps.
2424--
25−-- Code below taken from Happstack: <http://patch-tag.com/r/mae/happstack/snapshot/current/content/pretty/happstack-server/src/Happstack/Server/FileServe/BuildingBlocks.hs>
25+-- Code below taken from Happstack: <https://github.com/Happstack/happstack-server/blob/87e6c01a65c687d06c61345430a112fc9a444a95/src/Happstack/Server/FileServe/BuildingBlocks.hs>
2626defaultListing :: Listing
2727defaultListing pieces (Folder contents) = do
2828 let isTop = null pieces || map Just pieces == [toPiece ""]