From a8d88dfe980a597add7ca07787350775131cd76c Mon Sep 17 00:00:00 2001
From: Ng Zhi An <ngzhian@gmail.com>
Date: Mon, 17 Dec 2018 00:19:49 -0800
Subject: [PATCH] Fix calculation of changed lines

---
 src/ShellCheck/Formatter/TTY.hs | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/ShellCheck/Formatter/TTY.hs b/src/ShellCheck/Formatter/TTY.hs
index 3e0a2a8..dfe5421 100644
--- a/src/ShellCheck/Formatter/TTY.hs
+++ b/src/ShellCheck/Formatter/TTY.hs
@@ -24,6 +24,7 @@ import ShellCheck.Interface
 import ShellCheck.Formatter.Format
 
 import Control.Monad
+import Data.Ord
 import Data.IORef
 import Data.List
 import Data.Maybe
@@ -156,16 +157,15 @@ fixedString :: PositionedComment -> [String] -> [String]
 fixedString comment fileLines =
     case (pcFix comment) of
     Nothing -> [""]
-    Just fix ->
-        let (start, end) = affectedRange (fixReplacements fix) in
-        -- applyReplacement returns the full update file, we really only care about the changed lines
-        -- so we calculate overlapping lines using replacements
-        drop start $ take end $ applyFix fix fileLines
-        where
-            affectedRange rs = _affectedRange rs 1 1
-            _affectedRange [] s e = (fromIntegral s, fromIntegral e)
-            _affectedRange (rep:xs) s e =
-                _affectedRange xs (min s (posLine (repStartPos rep))) (max e (posLine (repEndPos rep)))
+    Just fix -> case (fixReplacements fix) of
+        [] -> []
+        reps ->
+            -- applyReplacement returns the full update file, we really only care about the changed lines
+            -- so we calculate overlapping lines using replacements
+            drop start $ take end $ applyFix fix fileLines
+            where
+                start = (fromIntegral $ minimum $ map (posLine . repStartPos) reps) - 1
+                end = fromIntegral $ maximum $ map (posLine . repEndPos) reps
 
 cuteIndent :: PositionedComment -> String
 cuteIndent comment =