From b9a9eb2529e40a29224fc3114ed20d5e2c3c6d0d Mon Sep 17 00:00:00 2001
From: Ng Zhi An <ngzhian@gmail.com>
Date: Tue, 12 Jun 2018 22:16:00 -0700
Subject: [PATCH] Change getNextId to create a zero width span at new id
---
src/ShellCheck/Parser.hs | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/src/ShellCheck/Parser.hs b/src/ShellCheck/Parser.hs
index 8daa957..41724a5 100644
--- a/src/ShellCheck/Parser.hs
+++ b/src/ShellCheck/Parser.hs
@@ -185,8 +185,9 @@ getNextIdAt sourcepos = do
getNextId :: Monad m => SCParser m Id
getNextId = do
- pos <- getPosition
- getNextIdAt pos
+ start <- startSpan
+ id <- endSpan start
+ return id
data IncompleteInterval = IncompleteInterval SourcePos
@@ -204,11 +205,6 @@ endSpan (IncompleteInterval start) = do
}
return id
-zeroWidthSpan = do
- start <- startSpan
- id <- endSpan start
- return id
-
addToHereDocMap id list = do
state <- getState
let map = hereDocMap state