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

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