datenum       = read <$> ((++) <$> option "" (string "-") <*> many1 digit) <* eof :: Parser Integer
datenum       = read <$> ((++) <$> option "" (string "-") <*> many1 digit) <* eof :: Parser Integer
datenum       = read <$> ((++) <$> option "" (string "-") <*> many1 digit) <* eof :: Parser Integer