Add warnings for empty then clauses

This commit is contained in:
Vidar Holen 2013-01-23 17:15:55 -08:00
parent 844a07afa0
commit 0c66cfb936
1 changed files with 6 additions and 0 deletions

View File

@ -1063,6 +1063,12 @@ readIfPart = do
acceptButWarn g_Semi ErrorC "No semicolons directly after 'then'." acceptButWarn g_Semi ErrorC "No semicolons directly after 'then'."
allspacing allspacing
optional (do
emptyPos <- getPosition
try . lookAhead $ (g_Fi <|> g_Elif)
parseProblemAt emptyPos ErrorC "Can't have empty then clauses (use 'true' as a no-op).")
action <- readTerm action <- readTerm
return (condition, action) return (condition, action)