40 lines
779 B
Haskell
40 lines
779 B
Haskell
|
import Network.Wai
|
||
|
|
import Network.Wai.Handler.Warp
|
||
|
|
import System.Environment
|
||
|
|
|
||
|
|
import qualified T1
|
||
|
|
import qualified T2
|
||
|
|
import qualified T3
|
||
|
|
import qualified T4
|
||
|
|
import qualified T5
|
||
|
|
import qualified T6
|
||
|
|
import qualified T7
|
||
|
|
import qualified T9
|
||
|
|
import qualified T10
|
||
|
|
|
||
|
|
app :: String -> (Application -> IO ()) -> IO ()
|
||
|
|
app n f = case n of
|
||
|
|
"1" -> f T1.app
|
||
|
|
"2" -> f T2.app
|
||
|
|
"3" -> f T3.app
|
||
|
|
"4" -> f T4.app
|
||
|
|
"5" -> f T5.app
|
||
|
|
"6" -> f T6.app
|
||
|
|
"7" -> f T7.app
|
||
|
|
"8" -> f T3.app
|
||
|
|
"9" -> T9.writeJSFiles >> f T9.app
|
||
|
|
"10" -> f T10.app
|
||
|
|
_ -> usage
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
args <- getArgs
|
||
|
|
case args of
|
||
|
|
[n] -> app n (run 8081)
|
||
|
|
_ -> usage
|
||
|
|
|
||
|
|
usage :: IO ()
|
||
|
|
usage = do
|
||
|
|
putStrLn "Usage:\t tutorial N"
|
||
|
|
putStrLn "\t\twhere N is the number of the example you want to run."
|