From: Don Stewart Date: Tue, 19 Feb 2008 22:54:37 +0000 (+0000) Subject: untabify X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6cc0d200c099facf4bdedf92553a9eb98fd88f0f;p=ghc-base.git untabify --- diff --git a/Foreign/Marshal/Error.hs b/Foreign/Marshal/Error.hs index ce6336e..5f7e92d 100644 --- a/Foreign/Marshal/Error.hs +++ b/Foreign/Marshal/Error.hs @@ -18,9 +18,9 @@ module Foreign.Marshal.Error ( throwIf, -- :: (a -> Bool) -> (a -> String) -> IO a -> IO a throwIf_, -- :: (a -> Bool) -> (a -> String) -> IO a -> IO () throwIfNeg, -- :: (Ord a, Num a) - -- => (a -> String) -> IO a -> IO a + -- => (a -> String) -> IO a -> IO a throwIfNeg_, -- :: (Ord a, Num a) - -- => (a -> String) -> IO a -> IO () + -- => (a -> String) -> IO a -> IO () throwIfNull, -- :: String -> IO (Ptr a) -> IO (Ptr a) -- Discard return value @@ -47,11 +47,11 @@ import GHC.IOBase -- 'True' when applied to the result returned by the 'IO' action. -- If no exception is raised, return the result of the computation. -- -throwIf :: (a -> Bool) -- ^ error condition on the result of the 'IO' action - -> (a -> String) -- ^ computes an error message from erroneous results - -- of the 'IO' action - -> IO a -- ^ the 'IO' action to be executed - -> IO a +throwIf :: (a -> Bool) -- ^ error condition on the result of the 'IO' action + -> (a -> String) -- ^ computes an error message from erroneous results + -- of the 'IO' action + -> IO a -- ^ the 'IO' action to be executed + -> IO a throwIf pred msgfct act = do res <- act