Changed type of abortA

darcs-hash:20070415020918-62b54-48afceab74986b43c676c9159998a79a468216e6.gz

diff --git a/Network/HTTP/Lucu/Abortion.hs b/Network/HTTP/Lucu/Abortion.hs
index 6f09f534429afc9a0f0428d228161e50c1b05744..953fc5973d527e74229fa27854042ef13e677edc 100644 (file)
--- a/Network/HTTP/Lucu/Abortion.hs
+++ b/Network/HTTP/Lucu/Abortion.hs
@@ -2,7 +2,7 @@ module Network.HTTP.Lucu.Abortion
     ( Abortion(..)
     , abort      -- MonadIO m => StatusCode -> [ (String, String) ] -> Maybe String -> m a
     , abortSTM   -- StatusCode -> [ (String, String) ] -> Maybe String -> STM a
-    , abortA     -- ArrowIO a => StatusCode -> [ (String, String) ] -> Maybe String -> a b c
+    , abortA     -- ArrowIO a => a (StatusCode, ([ (String, String) ], Maybe String)) c
     , abortPage  -- Config -> Maybe Request -> Maybe Response -> Abortion -> String
     )
     where
@@ -47,9 +47,9 @@ abortSTM status headers msg
     = unsafeIOToSTM $ abort status headers msg
 
 
-abortA :: ArrowIO a => StatusCode -> [ (String, String) ] -> Maybe String -> a b c
-abortA status headers msg
-    = arrIO0 $ abort status headers msg
+abortA :: ArrowIO a => a (StatusCode, ([ (String, String) ], Maybe String)) c
+abortA 
+    = arrIO3 abort
 
 
 -- aboMessage が Just なら單に mkDefaultPage に渡すだけで良いので樂だが、