From 5b85a4b9e1c6463c94ffa595893ad02c9a3d2ec3 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Fri, 1 May 2020 23:13:48 +0200
Subject: Only pass pjUnits to compile module instead of whole PlanJson

---
 lib/Distribution/Helper.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/Distribution/Helper.hs b/lib/Distribution/Helper.hs
index 84c1c30..f8adcc4 100644
--- a/lib/Distribution/Helper.hs
+++ b/lib/Distribution/Helper.hs
@@ -840,7 +840,7 @@ mkCompHelperEnv
     , cheProjDir  = plCabalProjectDir projloc
     , cheProjLocalCacheDir = distdir
     , chePkgDb    = []
-    , chePlanJson = Nothing
+    , chePjUnits = Nothing
     , cheDistV2 = Nothing
     }
 mkCompHelperEnv
@@ -855,9 +855,8 @@ mkCompHelperEnv
     cheCabalVer = cabal_ver
     cheProjLocalCacheDir = distdir </> "cache"
     chePkgDb    = []
-    chePlanJson = Just plan
+    chePjUnits  = Just $ pjUnits plan
     cheDistV2   = Just distdir
-    PlanJson {pjCabalLibVersion=Ver pjCabalLibVersion } = plan
 mkCompHelperEnv
   (ProjLocStackYaml stack_yaml)
   (DistDirStack mworkdir)
@@ -874,6 +873,6 @@ mkCompHelperEnv
     , cheProjDir  = projdir
     , cheProjLocalCacheDir = projdir </> workdir
     , chePkgDb    = [sppGlobalPkgDb, sppSnapPkgDb, sppLocalPkgDb]
-    , chePlanJson = Nothing
+    , chePjUnits = Nothing
     , cheDistV2 = Nothing
     }
-- 
cgit v1.2.3