X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FAbortion.hs;h=33f22abb9045ca962e4ef9a62449b34d56662296;hb=0b39e041a86e883b60096fe08f202798cc69f4eb;hp=52e7e23d6047b2e0fb6d824fa500e1f393269414;hpb=1196f43ecedbb123515065f0440844864af906fb;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Abortion.hs b/Network/HTTP/Lucu/Abortion.hs
index 52e7e23..33f22ab 100644
--- a/Network/HTTP/Lucu/Abortion.hs
+++ b/Network/HTTP/Lucu/Abortion.hs
@@ -38,9 +38,7 @@ data Abortion = Abortion {
     , aboMessage :: !(Maybe String)
     } deriving (Show, Typeable)
 
-instance Exception Abortion where
-    toException = SomeException
-    fromException (SomeException e) = cast e
+instance Exception Abortion
 
 -- |Computation of @'abort' status headers msg@ aborts the
 -- 'Network.HTTP.Lucu.Resource.Resource' monad with given status,