Re: FixIO/ Tackling Awkward Squad

[Marcin 'Qrczak' Kowalczyk]

Fri, 16 Feb 2001 10:01:06 -0800, Levent Erkok <[EMAIL PROTECTED]> pisze:

> The non-strict version is not good either, because it won't do
> the effects!

data Box a = Box {unbox :: a}

fixIO m = let
    x = unsafePerformIO (liftM Box (m (unbox x)))
    in return (unbox $! x)

-- 
 __("<  Marcin Kowalczyk * [EMAIL PROTECTED] http://qrczak.ids.net.pl/
 \__/
  ^^                      SYGNATURA ZASTÊPCZA
QRCZAK


_______________________________________________
Haskell mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell