Enable index.html for static files

src/App.hs

@@ -82,7 +82,7 @@ site = do
     address <- lift $ asks appAddress
     appDir <- lift $ asks appDirectory
     let routedSite = boomerangSiteRouteT handler sitemap
-    let staticSite = serveDirectory DisableBrowsing [] $ appDir ++ "/static"
+    let staticSite = serveDirectory DisableBrowsing ["index.html"] $ appDir ++ "/static"
     implSite address "" routedSite `mplus` staticSite
 
 -- Run an action in application routing context

testsuite/Integration/TestStatic.hs

@@ -13,3 +13,7 @@ import Test.Framework
 test_static = do
     resp <- makeRequest $ simpleRequest "/some-verification-file.html"
     assertEqual "This is the exact content of the verification file.\n" resp
+
+test_static_index = do
+    resp <- makeRequest $ simpleRequest "/with_index/"
+    assertEqual "Index file\n" resp

testsuite/Integration/content/static/with_index/index.html

@@ -0,0 +1 @@
+Index file