From 44df82dcbf72d01d2bbb6c0afacff329ca749854 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Wed, 19 Jan 2022 12:58:54 -0500 Subject: Eliminate Data.Map.insertWith' containers-0.6 removed insertWith' in favor of the Data.Map.Strict API. Switch to the new API where appropriate. --- Logs/UUID.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Logs/UUID.hs') diff --git a/Logs/UUID.hs b/Logs/UUID.hs index 8da727228..9984e2b76 100644 --- a/Logs/UUID.hs +++ b/Logs/UUID.hs @@ -9,6 +9,7 @@ - uuid.log stores a list of known uuids, and their descriptions. - - Copyright 2010-2012 Joey Hess + - Copyright 2022 Benjamin Barenblat - - Licensed under the GNU GPL version 3 or higher. -} @@ -29,7 +30,7 @@ import Logs import Logs.UUIDBased import qualified Annex.UUID -import qualified Data.Map as M +import qualified Data.Map.Strict as M {- Records a description for a uuid in the log. -} describeUUID :: UUID -> String -> Annex () @@ -79,7 +80,7 @@ uuidMapLoad :: Annex UUIDMap uuidMapLoad = do m <- (simpleMap . parseLog Just) <$> Annex.Branch.get uuidLog u <- Annex.UUID.getUUID - let m' = M.insertWith' preferold u "" m + let m' = M.insertWith preferold u "" m Annex.changeState $ \s -> s { Annex.uuidmap = Just m' } return m' where -- cgit v1.2.3