@@ -353,11 +353,21 @@ whitespace =
353 option "" forcedWS
353 option "" forcedWS
356−freshLine :: IParser [[String]]
356+freshLine :: IParser String
357freshLine =
357freshLine =
359+ do ws <- many1 (spaces <|> newline)
360+ column <- sourceColumn <$> getPosition
362+ then return (concat ws)
363+ else fail badFreshLineMessage
358− try (many1 newline >> many space_nl) <|> try (many1 space_nl) <?> Syntax.freshLine
364+ ) <?> Syntax.freshLine
360− space_nl = try $ spaces >> many1 newline
366+
367+badFreshLineMessage :: String
368+badFreshLineMessage =
369+ "I need a fresh line to start a new declaration. This means a new line that\n"
370+ ++ "starts with stuff, not with spaces or comments."
363newline :: IParser String
373newline :: IParser String