whitespace :: Lexer (Pos Token)
whitespace = withPos (const Space <$> many1 space)
whitespace :: Lexer (Pos Token)
whitespace = withPos (const Space <$> many1 space)
whitespace = withPos (const Space <$> many1 space)