git.iko.soy/servant
on 404bfdd help sign in
servant/servant-examples/tutorial/T6.hs
18 lines 295 B history raw
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE TypeFamilies #-}
3{-# LANGUAGE TypeOperators #-}
4module T6 where
6import Network.Wai
7import Servant
9type API = "code" :> Raw
11api :: Proxy API
12api = Proxy
14server :: Server API
15server = serveDirectory "tutorial"
17app :: Application
18app = serve api server