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)
|