avoid build warning with recent ghc
authorJoey Hess <joeyh@joeyh.name>
Tue, 21 Jan 2025 15:59:38 +0000 (11:59 -0400)
committerJoey Hess <joeyh@joeyh.name>
Tue, 21 Jan 2025 16:00:16 +0000 (12:00 -0400)
foldl' is in Prelude now. Explicitly import Data.List still
for older systems and add explict Prelude import to avoid warning.

Annex/Balanced.hs

index ab643287d60e9ac42aec17e63fc29b026fb62b8a..e114c1f893d1d4cfc8fabba2517928c6d84d87cc 100644 (file)
@@ -11,11 +11,12 @@ import Key
 import Types.UUID
 import Utility.Hash
 
-import Data.List
 import Data.Maybe
 import Data.Bits (shiftL)
 import qualified Data.Set as S
 import qualified Data.ByteArray as BA
+import Data.List
+import Prelude
 
 -- The Int is how many UUIDs to pick.
 type BalancedPicker = S.Set UUID -> Key -> Int -> [UUID]