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