Fixed parser accepting spaces after here doc token

2013-10-27 16:02:27 -07:00 · 2013-10-27 16:02:27 -07:00 · 6d0bfcf37a
parent e0bbb89d00
commit 6d0bfcf37a
1 changed files with 5 additions and 1 deletions
--- a/ShellCheck/Parser.hs
+++ b/ShellCheck/Parser.hs
@ -1014,7 +1014,11 @@ readHereDoc = called "here document" $ do
    spacing

    startPos <- getPosition
-    hereData <- anyChar `reluctantlyTill` (linefeed >> spacing >> (string endToken) >> (disregard whitespace <|> eof))
+    hereData <- anyChar `reluctantlyTill` do
+                    linefeed
+                    spacing
+                    string endToken
+                    disregard linefeed  <|> eof

    do
        linefeed