diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2021-02-14 00:49:53 +0100 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2021-02-14 00:51:53 +0100 |
| commit | 27fcb41165616b1fd78be1f3d7f8d41625ba1bda (patch) | |
| tree | 33baa602020c120698e1e640b9e54d28478de8d8 /src/CabalHelper/Runtime/HelperMain.hs | |
| parent | 87cba6ec1c004d2232cebede610b40edb272c4ee (diff) | |
Fix Cabal-3.4 renaming Flags to PackageFlags
Diffstat (limited to 'src/CabalHelper/Runtime/HelperMain.hs')
| -rw-r--r-- | src/CabalHelper/Runtime/HelperMain.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/CabalHelper/Runtime/HelperMain.hs b/src/CabalHelper/Runtime/HelperMain.hs index 12271bb..983223b 100644 --- a/src/CabalHelper/Runtime/HelperMain.hs +++ b/src/CabalHelper/Runtime/HelperMain.hs @@ -33,7 +33,6 @@ import Distribution.Package import Distribution.PackageDescription ( PackageDescription , GenericPackageDescription(..) - , Flag(..) , FlagName , FlagAssignment , Executable(..) @@ -310,7 +309,9 @@ helper_main args = do $ configFlags lbi nonDefaultFlags = [ (flag_name, val) - | MkFlag {flagName=(unFlagName -> flag_name'), flagDefault=def_val} <- flagDefinitons + | flag <- flagDefinitons + , let flag_name' = unFlagName $ flagName flag + , let def_val = flagDefault flag , (unFlagName -> flag_name, val) <- flagAssgnments , flag_name == flag_name' , val /= def_val @@ -376,7 +377,7 @@ componentsInfo lvd@(lbi, v, distdir) pt = do return uiComponents -flagName' :: Distribution.PackageDescription.Flag -> String +flagName' :: PackageFlag -> String flagName' = unFlagName . flagName componentsMap :: LocalBuildInfo |