@@ -321,13 +321,15 @@ module IORef where
322module Trace where
322module Trace where
324 import Eff
325 import Eff
326 foreign import data Trace :: !
327 foreign import data Trace :: !
328 foreign import trace "function trace(s) { return function() { console.log(s); return {}; }; }" :: forall r. String -> Eff (trace :: Trace | r) {}
329 foreign import trace "function trace(s) { return function() { console.log(s); return {}; }; }" :: forall r. String -> Eff (trace :: Trace | r) {}
330− foreign import print "function print(dict) { return function (o) { return function() { console.log(Prelude.show(dict)(o)); return {}; }; }; }" :: forall a r. (Prelude.Show a) => a -> Eff (trace :: Trace | r) {}
331+ print :: forall a r. (Prelude.Show a) => a -> Eff (trace :: Trace | r) {}
332+ print o = trace (show o)
332module ST where
334module ST where