bugsnag-wai-1.0.0.2: example/Main.hs

module Main
  ( main
  ) where

import Prelude

import qualified Data.Bugsnag.Settings as Bugsnag
import Network.Bugsnag.Wai (bugsnagOnException)
import Network.Wai (Application)
import Network.Wai.Handler.Warp

main :: IO ()
main = do
  settings <- warpSettings
  runSettings settings app

warpSettings :: IO Settings
warpSettings = do
  let settings = Bugsnag.defaultSettings "BUGSNAG_API_KEY"

  pure $
    setPort 3000 $
      setOnException
        (bugsnagOnException settings)
        defaultSettings

app :: Application
app = error "Oops"