From 6558a1691e4158841b073f19d55db6c17a01d6bf Mon Sep 17 00:00:00 2001
From: Phil de Joux <philderbeast@gmail.com>
Date: Mon, 25 Nov 2024 12:13:44 -0500
Subject: [PATCH] Satisfy fourmolu

---
 .../src/Distribution/Types/VersionRange.hs       | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/Cabal-syntax/src/Distribution/Types/VersionRange.hs b/Cabal-syntax/src/Distribution/Types/VersionRange.hs
index 043d8b9a61f..e2a5c12bf59 100644
--- 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