- # stdin = if (not args.gen) stdin (stdin
- <<< "//CODE GEN\n" <<< gen ast <<< "\n//CODE GEN\n")
- = snd $ fclose (stdin <<< "\n") w
+ = case gen ast of
+ (Left e) = snd $ fclose (stdin <<< e) w
+ (Right asm)
+ # stdin = if (not args.gen) stdin (stdin
+ <<< ";CODE GEN\n" <<< asm <<< "\n;CODE GEN\n")
+ = snd $ fclose (stdin <<< "\n") w