aboutsummaryrefslogtreecommitdiff
path: root/lib/Distribution
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2018-10-21 16:27:22 +0200
committerDaniel Gröber <dxld@darkboxed.org>2018-10-27 20:48:56 +0200
commite91d57a4655d69b306190506c488450f42391fb3 (patch)
tree85cccb972f8786b0c7658c55c39ae6b5c611c879 /lib/Distribution
parente7ee5a69970a6641ea650557611a8fb502d85dc5 (diff)
Add package-id unit-query
Diffstat (limited to 'lib/Distribution')
-rw-r--r--lib/Distribution/Helper.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/Distribution/Helper.hs b/lib/Distribution/Helper.hs
index 4757200..90935c9 100644
--- a/lib/Distribution/Helper.hs
+++ b/lib/Distribution/Helper.hs
@@ -436,21 +436,22 @@ readUnitInfo :: QueryEnvI c pt -> FilePath -> Unit -> IO UnitInfo
readUnitInfo
qe exe unit@Unit {uUnitId=uiUnitId, uPackageDir=pkgdir, uDistDir=distdir} = do
res <- readHelper qe exe pkgdir distdir
- [ "package-db-stack"
+ [ "package-id"
+ , "package-db-stack"
, "flags"
, "compiler-version"
, "config-flags"
, "non-default-config-flags"
, "component-info"
]
- let [ Just (ChResponsePkgDbs uiPackageDbStack),
+ let [ Just (ChResponseVersion uiPackageId),
+ Just (ChResponsePkgDbs uiPackageDbStack),
Just (ChResponseFlags uiPackageFlags),
- Just (ChResponseVersion comp compVer),
+ Just (ChResponseVersion uiCompilerVersion),
Just (ChResponseFlags uiConfigFlags),
Just (ChResponseFlags uiNonDefaultConfigFlags),
Just (ChResponseComponentsInfo uiComponents)
] = res
- uiCompilerVersion = (comp, compVer)
uiModTimes <- getUnitModTimes unit
return $ UnitInfo {..}