yesod-0.5.1: scaffold/devel-server_hs.cg

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"
        , "cassius"
        , "julius"
        ]
    go
  where
    go = do
        x <- getLine
        case x of
            'q':_ -> putStrLn "Quitting, goodbye!"
            _ -> go