From 53f63b85bbf7346680c7b355beaeaea737e9ae6e Mon Sep 17 00:00:00 2001 From: Vidar Holen Date: Sun, 5 Nov 2017 20:11:04 -0800 Subject: [PATCH] Use Data.Map.Strict instead of Map.insertWith' --- ShellCheck/Analytics.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ShellCheck/Analytics.hs b/ShellCheck/Analytics.hs index f524a87..5455dc8 100644 --- a/ShellCheck/Analytics.hs +++ b/ShellCheck/Analytics.hs @@ -41,7 +41,7 @@ import Data.List import Data.Maybe import Data.Ord import Debug.Trace -import qualified Data.Map as Map +import qualified Data.Map.Strict as Map import Test.QuickCheck.All (forAllProperties) import Test.QuickCheck.Test (quickCheckWithResult, stdArgs, maxSuccess) @@ -1872,7 +1872,7 @@ checkUnassignedReferences params t = warnings tally (Assignment (_, _, name, _)) = modify (\(read, written) -> (read, Map.insert name () written)) tally (Reference (_, place, name)) = - modify (\(read, written) -> (Map.insertWith' (const id) name place read, written)) + modify (\(read, written) -> (Map.insertWith (const id) name place read, written)) tally _ = return () unassigned = Map.toList $ Map.difference (Map.difference readMap writeMap) defaultAssigned