@@ -4,7 +4,7 @@ import Network.Wai.Handler.Warp (run)
44import Data.FileEmbed
55
66main :: IO ()
7−main = run 3000 $ staticApp defaultStaticSettings
7+main = run 3000 $ staticApp defaultFileServerSettings
88 { ssFolder = embeddedLookup $ toEmbedded $(embedDir ".")
99 , ssIndices = []
1010 , ssMaxAge = NoMaxAge