Commit d45f2742 authored by ijones's avatar ijones
Browse files

fixed "-foo " ++bar arguments, chnaged to "-foo", bar

parent bf7f9ea5
......@@ -128,14 +128,14 @@ constructGHCCmdLine pref pkg_descr lbi =
let (unsupported, flags) = extensionsToGHCFlag (maybe [] extensions (library pkg_descr))
in if null unsupported
then [
"--make", "-odir " ++ pref, "-hidir " ++ pref,
"--make", "-odir", pref, "-hidir", pref,
"-package-name", pkgName (package pkg_descr)
]
++ flags
++ [ opt | (GHC,opts) <- maybe [] options (library pkg_descr),
opt <- opts ]
++ [ "-i" ++ pref ]
++ [ "-package " ++ pkgName pkg | pkg <- packageDeps lbi ]
++ (concat [ ["-package", pkgName pkg] | pkg <- packageDeps lbi ] )
++ maybe [] modules (library pkg_descr)
else error $ "Unsupported extension for GHC: "
++ (concat $ intersperse ", " (map show unsupported))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment