X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=Network%2FHTTP%2FLucu%2FAbortion.hs;h=ff6915762b41b3795f948274766de52b6686fda6;hb=1000bdc46cfe7b3ae550ff24ccea9f440f11b42a;hp=75ce437bf4159ae2536f224c0860ba6f14343ce7;hpb=cd1b58b84ff354e3fc2a7d2c8fd548a7b59fe138;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Abortion.hs b/Network/HTTP/Lucu/Abortion.hs
index 75ce437..ff69157 100644
--- a/Network/HTTP/Lucu/Abortion.hs
+++ b/Network/HTTP/Lucu/Abortion.hs
@@ -1,7 +1,6 @@
 module Network.HTTP.Lucu.Abortion
     ( Abortion(..)
     , abort      -- MonadIO m => StatusCode -> [ (String, String) ] -> String -> m a
-    , abortIO    -- StatusCode -> [ (String, String) ] -> String -> IO a
     , abortSTM   -- StatusCode -> [ (String, String) ] -> String -> STM a
     , abortA     -- ArrowIO a => StatusCode -> [ (String, String) ] -> String -> a b c
     , aboPage    -- Config -> Abortion -> String
@@ -35,25 +34,20 @@ data Abortion = Abortion {
 
 abort :: MonadIO m => StatusCode -> [ (String, String) ] -> String -> m a
 abort status headers msg
-    = liftIO $ abortIO status headers msg
-
-
-abortIO :: StatusCode -> [ (String, String) ] -> String -> IO a
-abortIO status headers msg
     = let abo = Abortion status headers msg
           exc = DynException (toDyn abo)
       in
-        throwIO exc
+        liftIO $ throwIO exc
 
 
 abortSTM :: StatusCode -> [ (String, String) ] -> String -> STM a
 abortSTM status headers msg
-    = unsafeIOToSTM $ abortIO status headers msg
+    = unsafeIOToSTM $ abort status headers msg
 
 
 abortA :: ArrowIO a => StatusCode -> [ (String, String) ] -> String -> a b c
 abortA status headers msg
-    = arrIO0 $ abortIO status headers msg
+    = arrIO0 $ abort status headers msg
 
 
 aboPage :: Config -> Abortion -> String