servant/servant-examples/tutorial/T6.hs

{-# LANGUAGE DataKinds     #-}
{-# LANGUAGE TypeFamilies  #-}
{-# LANGUAGE TypeOperators #-}
module T6 where

import           Network.Wai
import           Servant

type API = "code" :> Raw

api :: Proxy API
api = Proxy

server :: Server API
server = serveDirectory "tutorial"

app :: Application
app = serve api EmptyConfig server
stylish haskell changes And import fix. 2015-08-17 23:56:29 +02:00			`{-# LANGUAGE DataKinds #-}`
			`{-# LANGUAGE TypeFamilies #-}`
examples: add GS6 2015-05-06 15:57:22 +02:00			`{-# LANGUAGE TypeOperators #-}`
getting-started -> tutorial 2015-05-10 13:39:18 +02:00			`module T6 where`
examples: add GS6 2015-05-06 15:57:22 +02:00
stylish haskell changes And import fix. 2015-08-17 23:56:29 +02:00			`import Network.Wai`
			`import Servant`
examples: add GS6 2015-05-06 15:57:22 +02:00
			`type API = "code" :> Raw`

			`api :: Proxy API`
			`api = Proxy`

			`server :: Server API`
getting-started -> tutorial 2015-05-10 13:39:18 +02:00			`server = serveDirectory "tutorial"`
examples: add GS6 2015-05-06 15:57:22 +02:00
			`app :: Application`
Add HasCfg typeclass. This is largely Aaron Levin's work. But it was done in a merge commit, so couldn't be cherry-picked in a sensible way. Thanks Aaron! 2016-01-07 12:51:30 +01:00			`app = serve api EmptyConfig server`