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

Use mappend over <> for compatibility

This commit is contained in:
Vidar Holen 2019-06-24 09:02:35 -07:00
parent b1aeee564c
commit c5aa171a5f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ShellCheck/Formatter/Diff.hs
View File

@ -29,6 +29,7 @@ import Data.Algorithm.Diff
import Data.Array import Data.Array
import Data.IORef import Data.IORef
import Data.List import Data.List
import qualified Data.Monoid as Monoid
import Data.Maybe import Data.Maybe
import qualified Data.Map as M import qualified Data.Map as M
import GHC.Exts (sortWith) import GHC.Exts (sortWith)
@ -181,7 +182,7 @@ splitFixByFile fix = map makeFix $ groupBy sameFile (fixReplacements fix)
makeFix reps = newFix { fixReplacements = reps } makeFix reps = newFix { fixReplacements = reps }
groupByMap :: (Ord k, Monoid v) => (v -> k) -> [v] -> M.Map k v groupByMap :: (Ord k, Monoid v) => (v -> k) -> [v] -> M.Map k v
groupByMap f = M.fromListWith (<>) . map (\x -> (f x, x)) groupByMap f = M.fromListWith Monoid.mappend . map (\x -> (f x, x))
-- For building unit tests -- For building unit tests
b n = Both n n b n = Both n n