- do
- let filename = "adder.hs"
- -- Read the file
- file <- readFile filename
- -- Parse the file
- let mode = ParseMode {parseFilename = filename}
- ParseOk mod = parseModuleWithMode mode file
- -- Print funky stuff
- --putStr $ foldl (\s d -> s ++ (show d) ++ "\n\n") "" (decls mod)
- putList (findfunc "exp_adder" (decls mod))
+ do
+ let filename = "adder.hs"
+ -- Read the file
+ file <- readFile filename
+ -- Parse the file
+ let mode = ParseMode {parseFilename = filename}
+ ParseOk mod = parseModuleWithMode mode file
+ -- Print funky stuff
+ --putStr $ foldl (\s d -> s ++ (show d) ++ "\n\n") "" (decls mod)
+ putList (findfunc "exp_adder" (decls mod))