git.iko.soy/servant
on bfb64cd help sign in
servant/servant-examples/tutorial/tutorial.hs
39 lines 809 B history raw
1import Network.Wai
2import Network.Wai.Handler.Warp
3import System.Environment
5import qualified T1
6import qualified T10
7import qualified T2
8import qualified T3
9import qualified T4
10import qualified T5
11import qualified T6
12import qualified T7
13import qualified T9
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."