f8ea9ba8fe
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!
18 lines
332 B
Haskell
18 lines
332 B
Haskell
{-# 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
|