Ashley Yakeley ashley at
Fri Sep 19 03:36:55 EDT 2003

In article <20030919000856.GA1240 at>,
 Ross Paterson <ross at> wrote:

> > How does Hugs do fixIO?
> It's nothing deep:

Oh, you've just moved the cleverness to unsafePerformIO, presumably:

 newtype IO a = IO ((a -> IOResult) -> IOResult)
 unsafePerformIO :: IO a -> a
 unsafePerformIO (IO f) = unsafeCast (f unsafeCast)

Ashley Yakeley, Seattle WA

More information about the Libraries mailing list