From 68163b9e162b3de0949069e2894d1fa5dba41238 Mon Sep 17 00:00:00 2001 From: Luite Stegeman Date: Tue, 26 Feb 2013 04:10:04 +0100 Subject: [PATCH] use inplace package id for the development server, should fix #507 --- yesod/GhcBuild.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod/GhcBuild.hs b/yesod/GhcBuild.hs index 7545337d..23639f5e 100644 --- a/yesod/GhcBuild.hs +++ b/yesod/GhcBuild.hs @@ -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