servant/servant-examples/tutorial/T6.hs

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

import           Network.Wai
import           Servant

type API = "code" :> Raw IO Application

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
modify Raw to work with Enter 2015-07-30 18:44:13 +02:00			`type API = "code" :> Raw IO Application`
examples: add GS6 2015-05-06 15:57:22 +02:00
			`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`
server: added Config machinery 2016-01-14 23:43:48 +01:00			`app = serve api EmptyConfig server`