more checking and gen

[minfp.git] / gen.icl

diff --git a/gen.icl b/gen.icl
index b03d398..12877b9 100644 (file)
--- a/gen.icl
+++ b/gen.icl
@@ -2,6 +2,12 @@ implementation module gen
 
 import StdEnv
 
+import Control.Applicative
+import Control.Monad
+import Data.Functor
+import Data.Either
+
 import ast
 
 gen :: AST -> Either [String] [String]
+gen _ = pure []