Skip to content
Browse files

+ Very initial version of the compiler module

  • Loading branch information...
1 parent 6519c8b commit 2319adb3912fc118771d0a8c08824ef1dfabc000 @Averethel committed Feb 16, 2013
Showing with 10 additions and 0 deletions.
  1. +10 −0 Compiler.hs
View
10 Compiler.hs
@@ -0,0 +1,10 @@
+module Compiler (compile) where
+ import KNormal
+ import PatternMatching
+ import Syntax
+ import TypeInference
+
+ compile :: Expr -> Either String KExpr
+ compile expr = case typeOfExpression emptyEnv expr of
+ Left er -> Left er
+ Right _ -> Right . convertToKNormal . compilePatternMatching $ expr

0 comments on commit 2319adb

Please sign in to comment.
Something went wrong with that request. Please try again.