git.iko.soy/typeable/servant
on master help sign in
examples: add GS6
ec95cb0Alp Mestanogullari
servant-examples/getting-started/GS6.hsnew file+18
compare with master
unifiedsplit
@@ -0,0 +1,18 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE TypeFamilies #-}
3+{-# LANGUAGE TypeOperators #-}
4+module GS6 where
5+
6+import Network.Wai
7+import Servant
8+
9+type API = "code" :> Raw
10+
11+api :: Proxy API
12+api = Proxy
13+
14+server :: Server API
15+server = serveDirectory "getting-started"
16+
17+app :: Application
18+app = serve api server
servant-examples/getting-started/getting-started.hs+2
@@ -7,6 +7,7 @@ import qualified GS2
7import qualified GS3
7import qualified GS3
8import qualified GS4
8import qualified GS4
9import qualified GS5
9import qualified GS5
10+import qualified GS6
10
11
11app :: String -> Maybe Application
12app :: String -> Maybe Application
12app n = case n of
13app n = case n of
@@ -15,6 +16,7 @@ app n = case n of
15 "3" -> Just GS3.app
16 "3" -> Just GS3.app
16 "4" -> Just GS4.app
17 "4" -> Just GS4.app
17 "5" -> Just GS5.app
18 "5" -> Just GS5.app
19+ "6" -> Just GS6.app
18 _ -> Nothing
20 _ -> Nothing
19
21
20main :: IO ()
22main :: IO ()