allow case in expressions, parse expressions

[clean-tests.git] / datatype / Compiler.hs

diff --git a/datatype/Compiler.hs b/datatype/Compiler.hs
index 5669725..79ee6b7 100644 (file)
--- a/datatype/Compiler.hs
+++ b/datatype/Compiler.hs
@@ -7,12 +7,12 @@ module Compiler where
 
 import Language
 import Serialise
-
+--
 import qualified Data.Map as DM
 import Control.Monad.Writer
 import Control.Monad.State
 import Control.Monad.ST
-import Debug.Trace
+--import Debug.Trace
 import Data.Array
 import Data.Array.ST
 import Data.Function