@@ -4,7 +4,7 @@ import Network.Wai.Handler.Warp (run)
4import Data.FileEmbed
4import Data.FileEmbed
6main :: IO ()
6main :: IO ()
7−main = run 3000 $ staticApp defaultStaticSettings
7+main = run 3000 $ staticApp defaultFileServerSettings
8 { ssFolder = embeddedLookup $ toEmbedded $(embedDir ".")
8 { ssFolder = embeddedLookup $ toEmbedded $(embedDir ".")
9 , ssIndices = []
9 , ssIndices = []
10 , ssMaxAge = NoMaxAge
10 , ssMaxAge = NoMaxAge