servant/servant-examples/getting-started/GS6.hs
Alp Mestanogullari ec95cb0355 examples: add GS6
2015-05-09 18:11:04 +02:00

18 lines
303 B
Haskell

{-# 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