examples: add GS6
commitec95cb035543379170c27ca7db6a5d4598e024e1
authorAlp Mestanogullari <alpmestan@gmail.com>
dateWed 6 May 2015, 15:57 (11 years ago)
parent1d3eefa
servant-examples/getting-started/GS6.hsnew file+18
@@ -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
77import qualified GS3
88import qualified GS4
99import qualified GS5
10+import qualified GS6
1011
1112app :: String -> Maybe Application
1213app n = case n of
@@ -15,6 +16,7 @@ app n = case n of
1516 "3" -> Just GS3.app
1617 "4" -> Just GS4.app
1718 "5" -> Just GS5.app
19+ "6" -> Just GS6.app
1820 _ -> Nothing
1921
2022main :: IO ()