21 lines
555 B
Plaintext
21 lines
555 B
Plaintext
import Network.Wai.Handler.DevelServer (run)
|
|
import Control.Concurrent (forkIO)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
mapM_ putStrLn
|
|
[ "Starting your server process. Code changes will be automatically"
|
|
, "loaded as you save your files. Type \"quit\" to exit."
|
|
, "You can view your app at http://localhost:3000/"
|
|
, ""
|
|
]
|
|
_ <- forkIO $ run 3000 "Controller" "with~sitearg~" ["hamlet"]
|
|
go
|
|
where
|
|
go = do
|
|
x <- getLine
|
|
case x of
|
|
'q':_ -> putStrLn "Quitting, goodbye!"
|
|
_ -> go
|
|
|