7x31
/
shellcheck
mirror of https://github.com/koalaman/shellcheck.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Use Data.Map.Strict instead of Map.insertWith'

This commit is contained in:
Vidar Holen 2017-11-05 20:11:04 -08:00
parent 102683ab04
commit 53f63b85bb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ShellCheck/Analytics.hs
View File

@ -41,7 +41,7 @@ import Data.List
import Data.Maybe import Data.Maybe
import Data.Ord import Data.Ord
import Debug.Trace import Debug.Trace
import qualified Data.Map as Map import qualified Data.Map.Strict as Map
import Test.QuickCheck.All (forAllProperties) import Test.QuickCheck.All (forAllProperties)
import Test.QuickCheck.Test (quickCheckWithResult, stdArgs, maxSuccess) import Test.QuickCheck.Test (quickCheckWithResult, stdArgs, maxSuccess)
@ -1872,7 +1872,7 @@ checkUnassignedReferences params t = warnings
tally (Assignment (_, _, name, _)) = tally (Assignment (_, _, name, _)) =
modify (\(read, written) -> (read, Map.insert name () written)) modify (\(read, written) -> (read, Map.insert name () written))
tally (Reference (_, place, name)) = 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 () tally _ = return ()
unassigned = Map.toList $ Map.difference (Map.difference readMap writeMap) defaultAssigned unassigned = Map.toList $ Map.difference (Map.difference readMap writeMap) defaultAssigned