git.iko.soy/typeable/servant
on feef8ca help sign in
typeable/servant/servant-examples/tutorial/T6.hs
18 lines 320 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