shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Quoute cpphs arguments.

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

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

@@ -358,8 +358,9 @@

   datadir <- getMhsDir

   let cpphs = fromMaybe "cpphs" mcpphs

       mhsIncludes = ["-I" ++ datadir ++ "/src/runtime"]

-      args = mhsDefines ++ mhsIncludes ++ cppArgs flags

+      args = mhsDefines ++ mhsIncludes ++ map quote (cppArgs flags)

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

+      quote s = "'" ++ s ++ "'"

   when (verbosityGT flags 1) $

     putStrLn $ "Run cpphs: " ++ show cmd

   callCommand cmd