X-Git-Url: https://ruin.nu/git/?p=proglang.git;a=blobdiff_plain;f=CompInt.hs;fp=CompInt.hs;h=3b28c00c2d3c9c856b924200f0742343f19f7219;hp=298c9f49c8ae3a50fcf220e393bdf99ed994c1bd;hb=b127b854d31e2936f86d4aabdcebe9cb298b23e9;hpb=4ab526ea4f2ad39b6797adbc9df0fd26ac571456

diff --git a/CompInt.hs b/CompInt.hs
index 298c9f4..3b28c00 100644
--- a/CompInt.hs
+++ b/CompInt.hs
@@ -22,11 +22,6 @@ type ParseFun a = [Token] -> Err a
 
 myLLexer = myLexer
 
-
-cHeader = "#include <stdio.h>\nint read(){\nint n;\nscanf(\"%d\",&n);\nreturn n;\n}\nint main(void){\n"
-
-cFooter = "return 0;}"
-
 putStrV :: Int -> String -> IO ()
 putStrV v s = if v > 1 then putStrLn s else return ()