diff --git a/src/Lexer.hs b/src/Lexer.hs index 6b5474c..3b04ecc 100644 --- a/src/Lexer.hs +++ b/src/Lexer.hs @@ -176,7 +176,7 @@ eol = void "\n" <|> void "\r\n" <|> Parsec.eof sol :: Parser () sol = do p <- getPosition - if sourceLine p == 1 && sourceColumn p == 1 + if sourceColumn p == 1 then pure () else fail "Not at start of line/document"