shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Print anything (not a good idea).

--- a/src/MicroHs/Interactive.hs

+++ b/src/MicroHs/Interactive.hs

@@ -99,10 +99,9 @@

       Right val ->

         if primIsInt val then

           putStrLn $ showInt $ unsafeCoerce val

-        else if primIsIO val then do

-          mio <- try (unsafeCoerce val)

+        else do

+          putStrLn "Warning: not an Int"

+          mio <- try (print ((unsafeCoerce val)::Int))

           case mio of

             Left  e -> err e

             Right _ -> return ()

-        else

-          putStrLn "Type must be Int or IO"

-- 

⑨