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
|
