git.iko.soy/servant
on 404bfdd help sign in
servant/servant-examples/tutorial/tutorial.hs
39 lines 779 B history raw
1import Network.Wai
2import Network.Wai.Handler.Warp
3import System.Environment
5import qualified T1
6import qualified T2
7import qualified T3
8import qualified T4
9import qualified T5
10import qualified T6
11import qualified T7
12import qualified T9
13import qualified T10
15app :: String -> (Application -> IO ()) -> IO ()
16app n f = case n of
17 "1" -> f T1.app
18 "2" -> f T2.app
19 "3" -> f T3.app
20 "4" -> f T4.app
21 "5" -> f T5.app
22 "6" -> f T6.app
23 "7" -> f T7.app
24 "8" -> f T3.app
25 "9" -> T9.writeJSFiles >> f T9.app
26 "10" -> f T10.app
27 _ -> usage
29main :: IO ()
30main = do
31 args <- getArgs
32 case args of
33 [n] -> app n (run 8081)
34 _ -> usage
36usage :: IO ()
37usage = do
38 putStrLn "Usage:\t tutorial N"
39 putStrLn "\t\twhere N is the number of the example you want to run."