+ Small modification to the main compiler function

Averethel · Mar 31, 2013 · 3234e35 · 3234e35
1 parent 6bf7519
commit 3234e35
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/Compiler.hs b/Compiler.hs
@@ -9,9 +9,10 @@ module Compiler (compile) where
   import LetFlatten
   import PatternMatching
   import Syntax
+  import TypedSyntax
   import TypeInference
 
-  compiler :: Integer -> Expr -> IO Program
+  compiler :: Integer -> TypedExpr -> IO Program
   compiler t e0 = do
     let e1 = compilePatternMatching e0
     let e2 = convertToKNormal e1
@@ -26,6 +27,6 @@ module Compiler (compile) where
   compile :: Integer -> Expr -> IO (Either String Program)
   compile inlineTreshold expr = case typeOfExpression emptyEnv expr of
     Left er -> return $ Left er
-    Right _ -> do
-      c <- compiler inlineTreshold expr
+    Right t -> do
+      c <- compiler inlineTreshold t
       return $ Right c