X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FAbortion%2FInternal.hs;fp=Network%2FHTTP%2FLucu%2FAbortion%2FInternal.hs;h=6142c23ec6b97f783c906348c40f6ff9f43e0bf8;hb=51eda5b02d4528e2e240cbfc228de02b1c83799a;hp=f71e0454a51b9be04aa630df18bd268397574251;hpb=19043d7882f936be9b073cae34b52905016c3ad7;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Abortion/Internal.hs b/Network/HTTP/Lucu/Abortion/Internal.hs
index f71e045..6142c23 100644
--- a/Network/HTTP/Lucu/Abortion/Internal.hs
+++ b/Network/HTTP/Lucu/Abortion/Internal.hs
@@ -45,7 +45,7 @@ import Text.XML.HXT.Arrow.XmlState
 -- >         [("Location", "http://example.net/")]
 -- >         "It has been moved to example.net"
 data Abortion = Abortion {
-      aboStatus  ∷ !StatusCode
+      aboStatus  ∷ !SomeStatusCode
     , aboHeaders ∷ !Headers
     , aboMessage ∷ !(Maybe Text)
     } deriving (Eq, Show, Typeable)