7x31/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck.git synced 2025-10-31 22:52:50 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix semigroup incompatibility

Browse Source
This commit is contained in:
Vidar Holen
2018-12-23 11:08:48 -08:00
parent 897f019353
commit 9acc8fcb53
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/ShellCheck/Fixer.hs
View File

@@ -2,6 +2,7 @@ module ShellCheck.Fixer (applyFix , replaceMultiLines, Ranged(..)) where
import ShellCheck.Interface import ShellCheck.Interface
import Data.List import Data.List
import Data.Semigroup
-- The Ranged class is used for types that has a start and end position. -- The Ranged class is used for types that has a start and end position.
class Ranged a where class Ranged a where
@@ -33,6 +34,7 @@ instance Ranged Fix where
-- The Monoid instance for Fix merges replacements that do not overlap. -- The Monoid instance for Fix merges replacements that do not overlap.
instance Monoid Fix where instance Monoid Fix where
mempty = newFix mempty = newFix
mappend = (<>)
instance Semigroup Fix where instance Semigroup Fix where
f1 <> f2 = if overlap f1 f2 then f1 else newFix { f1 <> f2 = if overlap f1 f2 then f1 else newFix {