X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FAbortion.hs;h=064a97ebd8671232b9053a6382d93c85927df318;hp=40a8cb5ab0b276103a5cf9e8f4231be7d0e2e20c;hb=51eda5b;hpb=19043d7882f936be9b073cae34b52905016c3ad7

diff --git a/Network/HTTP/Lucu/Abortion.hs b/Network/HTTP/Lucu/Abortion.hs
index 40a8cb5..064a97e 100644
--- a/Network/HTTP/Lucu/Abortion.hs
+++ b/Network/HTTP/Lucu/Abortion.hs
@@ -23,22 +23,22 @@ import Prelude.Unicode
 
 -- |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
       }