Re: FixIO/ Tackling Awkward Squad

[Marcin 'Qrczak' Kowalczyk]

Fri, 16 Feb 2001 04:14:26 -0800, Simon Peyton-Jones <[EMAIL PROTECTED]> pisze:

> fixIO m = do { v <- newEmptyMVar
>                ; result <- m (unsafePerformIO (takeMVar v))
>                ; putMVar v result
>                ; return result }

If we have unsafePerformIO, why not this?

fixIO m = let x = unsafePerformIO (m x) in return $! 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