minion-wai-extra-0.1.0.0: app/ServerEvent.hs

module Main where

import Network.Wai.Handler.Warp qualified as Warp
import Web.Minion.Examples.ServerEvent qualified

main :: IO ()
main = do
  app <- Web.Minion.Examples.ServerEvent.app
  Warp.run 9001 app