git.iko.soy/typeable/wai
on wai-app-static/2.0.0.2 help sign in
typeable/wai/wai-handler-devel/wai-handler-devel-unwatched.hs
27 lines 741 B history raw
1{-# LANGUAGE DeriveDataTypeable #-}
2import Network.Wai.Handler.DevelServer (runNoWatch)
3import System.Console.CmdArgs
4import Control.Concurrent (forkIO)
6data Devel = Devel
7 { port :: Int
8 , moduleName :: String
9 , function :: String
10 }
11 deriving (Show, Data, Typeable)
13main :: IO ()
14main = do
15 Devel p m f <- cmdArgs Devel
16 { port = 3000 &= argPos 0 &= typ "PORT"
17 , moduleName = "" &= argPos 1 &= typ "MODULE"
18 , function = "" &= argPos 2 &= typ "FUNCTION"
19 } &= summary "WAI development web server"
20 _ <- forkIO $ runNoWatch p m f $ const $ return []
21 go
22 where
23 go = do
24 x <- getLine
25 case x of
26 'q':_ -> putStrLn "Quitting, goodbye!"
27 _ -> go