untabify
authorDon Stewart <dons@galois.com>
Tue, 19 Feb 2008 22:54:37 +0000 (22:54 +0000)
committerDon Stewart <dons@galois.com>
Tue, 19 Feb 2008 22:54:37 +0000 (22:54 +0000)
Foreign/Marshal/Error.hs

index ce6336e..5f7e92d 100644 (file)
@@ -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) 
   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)
   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
   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.
 --
 -- '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
 throwIf pred msgfct act  = 
   do
     res <- act