Skip to content
Snippets Groups Projects
Commit 28dbf7f6 authored by Francesco Gazzetta's avatar Francesco Gazzetta
Browse files

Rename atMostOne to a more correct exactlyOne

parent 22497b29
No related branches found
No related tags found
No related merge requests found
......@@ -295,13 +295,13 @@ extractMatchingElaboratedConfiguredPackages
sequenceA' _ = Nothing
match :: ElaboratedConfiguredPackage -> Bool
match p = matchPackage pkgId p && matchComponent component p
matchingExecutable p = atMostOne
matchingExecutable p = exactlyOne
$ filter (\x -> Just x == componentString
|| isNothing componentString)
$ executablesOfPackage p
componentString = componentNameString =<< component
atMostOne [x] = Just x
atMostOne _ = Nothing
exactlyOne [x] = Just x
exactlyOne _ = Nothing
equalPackageIdAndExe (p,c) (p',c') = c==c' && ((==) `on` elabPkgSourceId) p p'
matchPackage :: Maybe PackageId
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment