RealWorld

[Ashley Yakeley]

In article <20030919000856.GA1240 at soi.city.ac.uk>,
 Ross Paterson <ross at soi.city.ac.uk> 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