From 5a576bb124909743d9addf0f94a84b1214eb5f4b Mon Sep 17 00:00:00 2001 From: pho Date: Sun, 15 Apr 2007 11:09:18 +0900 Subject: [PATCH] Changed type of abortA darcs-hash:20070415020918-62b54-48afceab74986b43c676c9159998a79a468216e6.gz --- Network/HTTP/Lucu/Abortion.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 に渡すだけで良いので樂だが、 -- 2.40.0