[Gtk2hs-commit] gtk2hs/tools/c2hs/base/sysdep SysDep.hs,1.2,1.3

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/tools/c2hs/base/sysdep
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2539/tools/c2hs/base/sysdep

Modified Files:
	SysDep.hs 
Log Message:
Simplify import and re-export.


Index: SysDep.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/tools/c2hs/base/sysdep/SysDep.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- SysDep.hs	9 Dec 2004 18:26:03 -0000	1.2
+++ SysDep.hs	13 Dec 2004 21:45:52 -0000	1.3
@@ -89,7 +89,7 @@
 import Ix         (Ix)
 import Monad	  (when)
 
-import Control.Monad.Fix (mfix)
+import System.IO	 (fixIO)
 import System.IO.Unsafe  (unsafePerformIO, unsafeInterleaveIO)
 import Data.IORef	 (IORef, newIORef, readIORef, writeIORef)
 import Data.Array.IO	 (IOArray, newArray, bounds, readArray, writeArray)
@@ -101,9 +101,6 @@
 
 -- re-export some things with different names
 --
-fixIO :: (a -> IO a) -> IO a
-fixIO = mfix
-
 newIOArray :: Ix i => (i, i) -> e -> IO (IOArray i e)
 newIOArray = newArray
 boundsIOArray :: Ix i => IOArray i e -> (i, i)