28 lines
652 B
Haskell
28 lines
652 B
Haskell
{-# Language DataKinds #-}
|
|
{-# Language TypeFamilies #-}
|
|
{-# Language TypeOperators #-}
|
|
{-# Language NoImplicitPrelude #-}
|
|
{-# Language MultiParamTypeClasses #-}
|
|
{-# Language OverloadedStrings #-}
|
|
{-# Language TemplateHaskell #-}
|
|
{-# Language QuasiQuotes #-}
|
|
{-# Language RecordWildCards #-}
|
|
{-# Language DeriveGeneric #-}
|
|
{-# Language FlexibleInstances #-}
|
|
module Server where
|
|
|
|
import qualified API as API
|
|
import Servant
|
|
|
|
type API = API.API :<|> "static" :> Raw
|
|
|
|
handler :: ServerT API Handler
|
|
handler = API.handler :<|> serveDirectoryFileServer "static"
|
|
|
|
|
|
server :: Application
|
|
server = serve api handler
|
|
where
|
|
api :: Proxy API
|
|
api = Proxy
|