rest-example-0.1.0.1: wai/Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main (main) where

import Network.Wai.Handler.Warp
import Rest.Driver.Wai (apiToApplication)

import Api (api)
import ApiTypes (runBlogApi)
import Example (exampleBlog)

main :: IO ()
main = do

  -- Set up the server state for the blog and start warp.
  putStrLn "Starting warp server on http://localhost:3000"
  serverData <- exampleBlog
  run 3000 $
    apiToApplication (runBlogApi serverData) api