@@ -48,7 +48,7 @@ This is an experimental native compiler/backend for [PureScript](https://github.
48```PureScript
48```PureScript
49module Main where
49module Main where
50 import Prelude
50 import Prelude
51− import Control.Monad.Eff.Console
51+ import Control.Monad.Eff.Console (log, logShow)
53 fib :: Int -> Int
53 fib :: Int -> Int
@@ -57,7 +57,7 @@ module Main where
59 log "Here's the result of fib 10:"
59 log "Here's the result of fib 10:"
60− print (fib 10)
60+ logShow (fib 10)
62**`fib.cc`**
62**`fib.cc`**
@@ -66,9 +66,14 @@ namespace Main {
66 using namespace PureScript;
66 using namespace PureScript;
67 using namespace Prelude;
67 using namespace Prelude;
68 using namespace Control_Monad_Eff_Console;
68 using namespace Control_Monad_Eff_Console;
69+ using namespace Data_Semiring;
70+ using namespace Data_Ring;
71+ using namespace Control_Bind;
69 using namespace Control_Monad_Eff;
72 using namespace Control_Monad_Eff;
73+ using namespace Data_Show;
71− auto fib(const any& v) -> any {
76+ auto fib(int v) -> int {
72 switch (cast<int>(v)) {
77 switch (cast<int>(v)) {
73 case 0: return 0;
78 case 0: return 0;
74 case 1: return 1;
79 case 1: return 1;
@@ -77,12 +82,13 @@ namespace Main {
78 auto main() -> any {
83 auto main() -> any {
79 Control_Monad_Eff_Console::log("Here's the result of fib 10:")();
84 Control_Monad_Eff_Console::log("Here's the result of fib 10:")();
80− return Control_Monad_Eff_Console::print(Prelude::showInt, fib(10))();
85+ return Control_Monad_Eff_Console::logShow(Data_Show::showInt, fib(10))();
84auto main(int, char *[]) -> int {
89auto main(int, char *[]) -> int {
85 using namespace Main;
90 using namespace Main;
86 Main::main();
92 Main::main();