examples: add GS6

servant-examples/getting-started/GS6.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+module GS6 where
+
+import Network.Wai
+import Servant
+
+type API = "code" :> Raw
+
+api :: Proxy API
+api = Proxy
+
+server :: Server API
+server = serveDirectory "getting-started"
+
+app :: Application
+app = serve api server

servant-examples/getting-started/getting-started.hs

@@ -7,6 +7,7 @@ import qualified GS2
 import qualified GS3
 import qualified GS4
 import qualified GS5
+import qualified GS6
 
 app :: String -> Maybe Application
 app n = case n of
@@ -15,6 +16,7 @@ app n = case n of
   "3" -> Just GS3.app
   "4" -> Just GS4.app
   "5" -> Just GS5.app
+  "6" -> Just GS6.app
   _   -> Nothing
 
 main :: IO ()