servant/servant-examples/tutorial/T6.hs

19 lines
295 B
Haskell
Raw Normal View History

2015-05-06 15:57:22 +02:00
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
2015-05-10 13:39:18 +02:00
module T6 where
2015-05-06 15:57:22 +02:00
import Network.Wai
import Servant
type API = "code" :> Raw
api :: Proxy API
api = Proxy
server :: Server API
2015-05-10 13:39:18 +02:00
server = serveDirectory "tutorial"
2015-05-06 15:57:22 +02:00
app :: Application
app = serve api server