use inplace package id for the development server, should fix #507

This commit is contained in:
Luite Stegeman 2013-02-26 04:10:04 +01:00
parent fc7dcfc3b3
commit 68163b9e16

View File

@ -83,7 +83,7 @@ getPackageArgs argv2 = do
let pkgFlags = map convertPkgFlag (GHC.packageFlags dflags1)
hideAll | gopt DF.Opt_HideAllPackages dflags1 = [ "-hide-all-packages"]
| otherwise = []
ownPkg = "-package" ++ Module.packageIdString (DF.thisPackage dflags1)
ownPkg = "-package-id" ++ Module.packageIdString (DF.thisPackage dflags1) ++ "-inplace"
return (extra dflags1 ++ hideAll ++ pkgFlags ++ [ownPkg])
where
convertPkgFlag (DF.ExposePackage p) = "-package" ++ p