-- |Construct an 'Abortion' with additional headers and an optional
-- message text.
-mkAbortion ∷ StatusCode → [(CIAscii, Ascii)] → Maybe Text → Abortion
+mkAbortion ∷ StatusCode sc ⇒ sc → [(CIAscii, Ascii)] → Maybe Text → Abortion
{-# INLINE mkAbortion #-}
mkAbortion sc hdr msg
= Abortion {
- aboStatus = sc
+ aboStatus = fromStatusCode sc
, aboHeaders = toHeaders hdr
, aboMessage = msg
}
-- |Construct an 'Abortion' without any additional headers but with a
-- message text.
-mkAbortion' ∷ StatusCode → Text → Abortion
+mkAbortion' ∷ StatusCode sc ⇒ sc → Text → Abortion
{-# INLINE mkAbortion' #-}
mkAbortion' sc msg
= Abortion {
- aboStatus = sc
+ aboStatus = fromStatusCode sc
, aboHeaders = (∅)
, aboMessage = Just msg
}