diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-08-06 19:39:23 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2020-05-10 21:50:44 +0200 |
| commit | bda559bf059ee42e3e01c1280f7a64dd2673d725 (patch) | |
| tree | bdfe97db7a53bd68638a6a7f102cd0942456e948 /lib/Distribution/Helper.hs | |
| parent | f606584fd104f864694e4fb9b943ef13904cdc96 (diff) | |
Refactor Program versions handling
This mainly renames the program version getters to get* and make them
consistenly return Version directly. Such that wrappers like GhcVersion
have to be added at the callsites of the relevant functions.
Diffstat (limited to 'lib/Distribution/Helper.hs')
| -rw-r--r-- | lib/Distribution/Helper.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Distribution/Helper.hs b/lib/Distribution/Helper.hs index f8adcc4..4696590 100644 --- a/lib/Distribution/Helper.hs +++ b/lib/Distribution/Helper.hs @@ -312,7 +312,7 @@ unitInfo u = Query $ \qe -> getUnitInfo qe u -- | Get information on all units in a project. allUnits :: (UnitInfo -> a) -> Query pt (NonEmpty a) -allUnits f = do +allUnits f = fmap f <$> (T.mapM unitInfo =<< join . fmap pUnits <$> projectPackages) |