aboutsummaryrefslogtreecommitdiff
path: root/src/CabalHelper
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2018-12-02 20:18:06 +0100
committerDaniel Gröber <dxld@darkboxed.org>2019-01-22 03:06:51 +0100
commit7dfa2e2ea8ce314152b495919fe8c3a41b5f737a (patch)
tree0369ba4e836187ecc534a8bc8b47bb35248ca967 /src/CabalHelper
parent132f65e0ca0fc54b1f457216af82b2da0c325be1 (diff)
Fix wrong target-selector syntax for v2-build
Diffstat (limited to 'src/CabalHelper')
-rw-r--r--src/CabalHelper/Compiletime/Program/CabalInstall.hs4
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