servant/servant-swagger/example/server/Main.hs

12 lines
185 B
Haskell
Raw Normal View History

module Main where
import Network.Wai.Handler.Warp
import Servant
import Todo
main :: IO ()
main = do
putStrLn "Running on port 8000"
run 8000 $ serve (Proxy :: Proxy API) server