File tree Expand file tree Collapse file tree 5 files changed +5
-5
lines changed
Cabal/src/Distribution/Simple
cabal-install/src/Distribution/Client Expand file tree Collapse file tree 5 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -711,7 +711,7 @@ computeLocalBuildConfig cfg comp programDb = do
711
711
-- rely on them. By the time that bug was fixed, ghci had
712
712
-- been changed to read shared libraries instead of archive
713
713
-- files (see next code block).
714
- notElem ( GHC. compilerBuildWay comp) [DynWay , ProfDynWay ]
714
+ GHC. compilerBuildWay comp `notElem` [DynWay , ProfDynWay ]
715
715
CompilerId GHCJS _ ->
716
716
not (GHCJS. isDynamic comp)
717
717
_ -> False
Original file line number Diff line number Diff line change @@ -320,7 +320,7 @@ depLibraryPaths
320
320
-- because you never have any internal libraries in this case;
321
321
-- they're all external.
322
322
let external_ipkgs = filter is_external (allPackages installed)
323
- is_external ipkg = notElem ( installedUnitId ipkg) internalDeps
323
+ is_external ipkg = installedUnitId ipkg `notElem` internalDeps
324
324
-- First look for dynamic libraries in `dynamic-library-dirs`, and use
325
325
-- `library-dirs` as a fall back.
326
326
getDynDir pkg = case Installed. libraryDynDirs pkg of
Original file line number Diff line number Diff line change @@ -331,7 +331,7 @@ installCommand =
331
331
}
332
332
where
333
333
-- install doesn't take installDirs flags, since it always installs into the store in a fixed way.
334
- notInstallDirOpt x = notElem ( optionName x) installDirOptNames
334
+ notInstallDirOpt x = optionName x `notElem` installDirOptNames
335
335
installDirOptNames = map optionName installDirsOptions
336
336
337
337
-- | The @install@ command actually serves four different needs. It installs:
Original file line number Diff line number Diff line change @@ -179,7 +179,7 @@ updateAction flags@NixStyleFlags{..} extraArgs globalFlags = do
179
179
unless (null updateRepoRequests) $ do
180
180
let remoteRepoNames = map repoName repos
181
181
unknownRepos =
182
- [ r | (UpdateRequest r _) <- updateRepoRequests, notElem r remoteRepoNames
182
+ [ r | (UpdateRequest r _) <- updateRepoRequests, r `notElem` remoteRepoNames
183
183
]
184
184
unless (null unknownRepos) $
185
185
dieWithException verbosity $
Original file line number Diff line number Diff line change @@ -782,7 +782,7 @@ checkPrintPlan
782
782
-- likely to be broken. We exclude packages that are already broken.
783
783
let newBrokenPkgs =
784
784
filter
785
- (\ p -> notElem ( Installed. installedUnitId p) excluded)
785
+ (\ p -> Installed. installedUnitId p `notElem` excluded)
786
786
(PackageIndex. reverseDependencyClosure installed reinstalledPkgs)
787
787
let containsReinstalls = not (null reinstalledPkgs)
788
788
let breaksPkgs = not (null newBrokenPkgs)
You can’t perform that action at this time.
0 commit comments