Skip to content

Commit

Permalink
Remove unit-test guards that aren't needed
Browse files Browse the repository at this point in the history
  • Loading branch information
philderbeast committed Nov 21, 2024
1 parent e81f990 commit edf1712
Showing 1 changed file with 1 addition and 16 deletions.
17 changes: 1 addition & 16 deletions cabal-install/tests/UnitTests/Distribution/Solver/Modular/DSL.hs
Original file line number Diff line number Diff line change
Expand Up @@ -494,10 +494,7 @@ exAvSrcPkg ex =
let checks = C.checkPackage (srcpkgDescription package)
in filter
( \x ->
not (isgtLowerBound x)
&& not (isLeqUpperBound x)
&& not (isTrailingZeroUpperBound x)
&& not (isMissingUpperBound x)
not (isMissingUpperBound x)
&& not (isUnknownLangExt x)
)
checks
Expand Down Expand Up @@ -723,18 +720,6 @@ exAvSrcPkg ex =
isMissingUpperBound pc = case C.explanation pc of
C.MissingUpperBounds{} -> True
_ -> False
isTrailingZeroUpperBound :: C.PackageCheck -> Bool
isTrailingZeroUpperBound pc = case C.explanation pc of
C.TrailingZeroUpperBounds{} -> True
_ -> False
isLeqUpperBound :: C.PackageCheck -> Bool
isLeqUpperBound pc = case C.explanation pc of
C.LEQUpperBounds{} -> True
_ -> False
isgtLowerBound :: C.PackageCheck -> Bool
isgtLowerBound pc = case C.explanation pc of
C.GTLowerBounds{} -> True
_ -> False

mkSimpleVersion :: ExamplePkgVersion -> C.Version
mkSimpleVersion n = C.mkVersion [n, 0, 0]
Expand Down

0 comments on commit edf1712

Please sign in to comment.