haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Luite Stegeman 2013-02-26 04:10:04 +01:00
parent fc7dcfc3b3
commit 68163b9e16
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod/GhcBuild.hs
View File

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