Improve indented here doc token message.

This commit is contained in:
Vidar Holen 2018-01-10 21:12:22 -08:00
parent 3c5c74ff04
commit 31d6b063d9
1 changed files with 1 additions and 1 deletions

View File

@ -1703,7 +1703,7 @@ readPendingHereDocs = do
verifyHereDoc dashed quoted spacing hereInfo = do verifyHereDoc dashed quoted spacing hereInfo = do
when (dashed == Undashed && spacing /= "") $ when (dashed == Undashed && spacing /= "") $
parseNote ErrorC 1039 "Use <<- instead of << if you want to indent the end token." parseNote ErrorC 1039 "Remove indentation before end token (or use <<- and indent with tabs)."
when (dashed == Dashed && filter (/= '\t') spacing /= "" ) $ when (dashed == Dashed && filter (/= '\t') spacing /= "" ) $
parseNote ErrorC 1040 "When using <<-, you can only indent with tabs." parseNote ErrorC 1040 "When using <<-, you can only indent with tabs."
return () return ()