diff --git a/servant-examples/getting-started/GS6.hs b/servant-examples/getting-started/GS6.hs
new file mode 100644
index 00000000..4fdc3faa
--- /dev/null
+++ b/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
diff --git a/servant-examples/getting-started/getting-started.hs b/servant-examples/getting-started/getting-started.hs
index f32ee674..7674e1cf 100644
--- a/servant-examples/getting-started/getting-started.hs
+++ b/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 ()