Add warnings for empty then clauses
This commit is contained in:
parent
844a07afa0
commit
0c66cfb936
|
@ -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)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue