diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2018-12-02 20:18:06 +0100 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2019-01-22 03:06:51 +0100 |
| commit | 7dfa2e2ea8ce314152b495919fe8c3a41b5f737a (patch) | |
| tree | 0369ba4e836187ecc534a8bc8b47bb35248ca967 | |
| parent | 132f65e0ca0fc54b1f457216af82b2da0c325be1 (diff) | |
Fix wrong target-selector syntax for v2-build
| -rw-r--r-- | src/CabalHelper/Compiletime/Program/CabalInstall.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/CabalHelper/Compiletime/Program/CabalInstall.hs b/src/CabalHelper/Compiletime/Program/CabalInstall.hs index 637d577..afc3f1a 100644 --- a/src/CabalHelper/Compiletime/Program/CabalInstall.hs +++ b/src/CabalHelper/Compiletime/Program/CabalInstall.hs @@ -198,9 +198,11 @@ planUnits plan = do , uDistDir=Just distdirv1 , uPkgSrc=Just (CP.LocalUnpackedPackage pkgdir) , uComps=comps + , uPId=CP.PkgId pkg_name _ } = do cabal_file <- Cabal.findCabalFile pkgdir - let uiV2Components = map (Text.unpack . CP.dispCompName) $ Map.keys comps + let uiV2Components = + map (Text.unpack . CP.dispCompNameTarget pkg_name) $ Map.keys comps return $ Just $ Right $ Unit { uUnitId = UnitId $ Text.unpack (coerce (CP.uId u)) , uPackageDir = pkgdir |