9 lines
201 B
Haskell
9 lines
201 B
Haskell
module Server where
|
|
|
|
import Network.Wai.Handler.Warp (run)
|
|
import Servant
|
|
import Zenith.RPC (ZenithRPC(..), zenithServer)
|
|
|
|
main :: IO ()
|
|
main = run 8081 (serve (Proxy :: Proxy ZenithRPC) zenithServer)
|