10 lines
198 B
Haskell
10 lines
198 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module Main where
|
|
|
|
import Application
|
|
import Network.Wai.Handler.Warp
|
|
import Network.Wai.Middleware.RequestLogger
|
|
|
|
main :: IO ()
|
|
main = app (run 3000 . logStdout)
|