Add a copy of void, since base's version is now deprecated.
authorSimon Marlow <marlowsd@gmail.com>
Mon, 16 Apr 2012 15:45:35 +0000 (16:45 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 16 Apr 2012 15:45:35 +0000 (16:45 +0100)
Foreign/Marshal/Error.hs

index 3527e81..527ab65 100644 (file)
@@ -17,4 +17,10 @@ module Foreign.Marshal.Error (
   void           -- IO a -> IO ()
 
   ) where
-import "base" Foreign.Marshal.Error
+import "base" Foreign.Marshal.Error hiding (void)
+
+-- |Discard the return value of an 'IO' action
+--
+void     :: IO a -> IO ()
+void act  = act >> return ()
+ -- base's version is deprecated