diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-08-06 00:04:17 +0200 |
|---|---|---|
| committer | Daniel Gröber (dxld) <dxld@darkboxed.org> | 2019-09-17 17:48:26 +0200 |
| commit | fe57ad27c239a4eaf2401a9874182492fa9f3af9 (patch) | |
| tree | 14b9f05ee303dae24e0428dc5c0fcf45ef85ce54 /src/CabalHelper/Compiletime/Program/CabalInstall.hs | |
| parent | 23864c59abfc6dad5a6b137941d618903817e1e3 (diff) | |
Refactor ProjType to be more inductive
This allows discriminating Stack vs. Cabal at the type level more easily.
Diffstat (limited to 'src/CabalHelper/Compiletime/Program/CabalInstall.hs')
| -rw-r--r-- | src/CabalHelper/Compiletime/Program/CabalInstall.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/CabalHelper/Compiletime/Program/CabalInstall.hs b/src/CabalHelper/Compiletime/Program/CabalInstall.hs index 7276d81..8ce0135 100644 --- a/src/CabalHelper/Compiletime/Program/CabalInstall.hs +++ b/src/CabalHelper/Compiletime/Program/CabalInstall.hs @@ -244,7 +244,7 @@ cabalV2WithGHCProgOpts = concat else [] ] -planUnits :: CP.PlanJson -> IO [Unit 'V2] +planUnits :: CP.PlanJson -> IO [Unit ('Cabal 'CV2)] planUnits plan = do units <- fmap catMaybes $ mapM takeunit $ Map.elems $ CP.pjUnits plan case lefts units of |