parseSource :: GenParser Char st Source
parseSource =
  do
    -- Skip Whitespace characters at the beginning
    many (oneOf " \t")
    s <- many (noneOf " \n\t")
    return s
parseSource :: GenParser Char st Source
parseSource =
  do
    -- Skip Whitespace characters at the beginning
    many (oneOf " \t")
    s <- many (noneOf " \n\t")
    return s
parseSource =
  do
    -- Skip Whitespace characters at the beginning
    many (oneOf " \t")
    s <- many (noneOf " \n\t")
    return s