@@ -213,6 +213,7 @@ openBlock = do lchar '{'
213closeBlock :: IParser ()
213closeBlock :: IParser ()
214closeBlock = do ist <- getState
214closeBlock = do ist <- getState
215 bs <- case brace_stack ist of
215 bs <- case brace_stack ist of
216+ [] -> eof >> return []
216 Nothing : xs -> (lchar '}' >> return xs) <|> (eof >> return [])
217 Nothing : xs -> (lchar '}' >> return xs) <|> (eof >> return [])
217 Just lvl : xs -> (do i <- indent
218 Just lvl : xs -> (do i <- indent
218 inp <- getInput
219 inp <- getInput