3 ms·
Here's another definition -- by continuation -- from Hug's Prelude (http://cpansearch.perl.org/src/AUTRIJUS/Language-Haskell-0.01/hugs98-Nov2003/libraries/Hugs/
by applicative 13y ago
Here's another definition -- by continuation -- from Hug's Prelude (http://cpansearch.perl.org/src/AUTRIJUS/Language-Haskell-0.01/hugs98-Nov2003/libraries/Hugs/Prelude.hs http://cpansearch.perl.org/src/AUTRIJUS/Language-Haskell-0.0...) :
newtype IO a = IO ((a -> IOResult) -> IOResult)
data IOResult
= Hugs_ExitWith Int
| Hugs_Catch IOResult (Exception -> IOResult) (Obj -> IOResult)
| Hugs_ForkThread IOResult IOResult
| Hugs_DeadThread
| Hugs_YieldThread IOResult
| Hugs_Return Obj
| Hugs_BlockThread (Obj -> IOResult) ((Obj -> IOResult) -> IOResult)