screened 2024-06-02 21:12:56+00:00

src/Darcs/Prelude.hs

@@ -26,6 +26,7 @@ it to the Prelude import.
 module Darcs.Prelude
     ( module Prelude
     , module Control.Applicative
+    , module Data.List
     , module Data.Monoid
     , Semigroup(..)
     , module Data.Traversable
@@ -59,9 +60,14 @@ import Prelude hiding
     ,
       -- used by various code for no particularly good reason
       lookup, pred
+#if MIN_VERSION_base(4,20,0)
+    , -- because it's in the new Prelude but only in Data.List in older GHCs
+      foldl'
+#endif
     )
 
 import Control.Applicative ( Applicative(..), (<$>), (<*>) )
+import Data.List ( foldl' )
 import Data.Monoid ( Monoid(..) )
 import Data.Semigroup ( Semigroup(..) )
 import Data.Traversable ( traverse )

src/Darcs/Repository/Hashed.hs

@@ -38,7 +38,6 @@ module Darcs.Repository.Hashed
 import Darcs.Prelude
 
 import Control.Monad ( unless, when )
-import Data.List ( foldl' )
 import System.Directory
     ( copyFile
     , createDirectoryIfMissing