 ------
leadingSpaces :: Lexer Int
leadingSpaces = newline >> length <$> many (char ' ')

withPos :: L
leadingSpaces :: Lexer Int
leadingSpaces = newline >> length <$> many (char ' ')
leadingSpaces = newline >> length <$> many (char ' ')