X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Translator.hs;h=550b4f0800475b348d4a6146aa317527d74af79d;hb=998e440a7fa765685e1ed500c871058a33129b1f;hp=1ce9307d72992452d5bfe8415e667d3823c46c59;hpb=241a1d6f8a4bc9cccc0cacb05e8348fa3e204f74;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Translator.hs b/Translator.hs
index 1ce9307..550b4f0 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -48,8 +48,8 @@ import FlattenTypes
 import VHDLTypes
 import qualified VHDL
 
-main = do
-  makeVHDL "Alu.hs" "exec" True
+-- main = do
+--   makeVHDL "Alu.hs" "exec" True
 
 makeVHDL :: String -> String -> Bool -> IO ()
 makeVHDL filename name stateful = do