10 lines
237 B
Haskell
10 lines
237 B
Haskell
import Network.Wai.Application.Static
|
|
import Network.Wai.Handler.Warp (run)
|
|
|
|
main :: IO ()
|
|
main = run 3000 $ staticApp defaultStaticSettings
|
|
{ ssFolder = fileSystemLookup "."
|
|
, ssMaxAge = MaxAgeForever
|
|
, ssIndices = []
|
|
}
|