From: pho <pho@cielonegro.org>
Date: Sun, 15 Apr 2007 02:09:18 +0000 (+0900)
Subject: Changed type of abortA
X-Git-Tag: RELEASE-0_2_1~53
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=commitdiff_plain;h=5a576bb124909743d9addf0f94a84b1214eb5f4b

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 6f09f53..953fc59 100644
--- 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 に渡すだけで良いので樂だが、