shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Don't strip #line

--- a/src/MicroHs/Compile.hs

+++ b/src/MicroHs/Compile.hs

@@ -343,7 +343,7 @@

   mcpphs <- lookupEnv "MHSCPPHS"

   let cpphs = fromMaybe "cpphs" mcpphs

       args = mhsDefines ++ cppArgs flags

-      cmd = cpphs ++ " --noline --strip " ++ unwords args ++ " " ++ infile ++ " -O" ++ outfile

+      cmd = cpphs ++ " --strip " ++ unwords args ++ " " ++ infile ++ " -O" ++ outfile

   when (verbosityGT flags 1) $

     putStrLn $ "Run cpphs: " ++ show cmd

   callCommand cmd

-- 

⑨