Satisfy fourmolu

haskell · Nov 25, 2024 · 6558a16 · 6558a16
1 parent 3fe5b61
commit 6558a16
Showing 1 changed file with 10 additions and 6 deletions.
diff --git a/Cabal-syntax/src/Distribution/Types/VersionRange.hs b/Cabal-syntax/src/Distribution/Types/VersionRange.hs
@@ -12,10 +12,12 @@ module Distribution.Types.VersionRange
     -- *** Lower Bound
   , hasLowerBound
   , hasGTLowerBound
+
     -- *** Upper Bound
   , hasUpperBound
   , hasLEQUpperBound
   , hasTrailingZeroUpperBound
+
     -- *** Any Version
   , isAnyVersion
   , isAnyVersionLight
@@ -54,7 +56,8 @@ module Distribution.Types.VersionRange
   , hyloVersionRange
 
     -- * Version Utilities
-    -- See "Distribution.Version" for more utilities.
+
+  -- See "Distribution.Version" for more utilities.
   , wildcardUpperBound
   , majorUpperBound
   , isWildcardRange
@@ -242,11 +245,12 @@ hasTrailingZeroUpperBound :: VersionRange -> Bool
 hasTrailingZeroUpperBound = queryVersionRange (\case HasTrailingZeroUpperBound -> True; _ -> False) hasTrailingZeroUpperBound
 
 queryVersionRange :: (VersionRangeF VersionRange -> Bool) -> (VersionRange -> Bool) -> VersionRange -> Bool
-queryVersionRange pf p (projectVersionRange -> v) = let f = queryVersionRange pf p in
-  pf v || case v of
-    IntersectVersionRangesF x y -> f x || f y
-    UnionVersionRangesF x y -> f x || f y
-    _ -> False
+queryVersionRange pf p (projectVersionRange -> v) =
+  let f = queryVersionRange pf p
+   in pf v || case v of
+        IntersectVersionRangesF x y -> f x || f y
+        UnionVersionRangesF x y -> f x || f y
+        _ -> False
 
 -- $setup
 -- >>> import Distribution.Parsec