13 lines
363 B
Plaintext
13 lines
363 B
Plaintext
module Axon.Request.Handler.Default where
|
|
|
|
import Prelude
|
|
|
|
import Axon.Request.Handler (Handler(..))
|
|
import Axon.Response (Response)
|
|
import Axon.Response as Response
|
|
import Data.Either (Either(..))
|
|
import Effect.Aff.Class (class MonadAff)
|
|
|
|
notFound :: forall m. MonadAff m => Handler m Response
|
|
notFound = Handler $ const $ pure $ Right $ Response.fromStatus 404
|