@@ -257,13 +257,13 @@ stringAtomP = liftA (Atom . T.pack) quotedString
257maybeTextAtomP :: Parser Atom
257maybeTextAtomP :: Parser Atom
258maybeTextAtomP = do
258maybeTextAtomP = do
259 maybeText <- try $ ((Just . T.pack <$> (reserved "Just" *> quotedString)) <|>
259 maybeText <- try $ ((Just . T.pack <$> (reserved "Just" *> quotedString)) <|>
260− (reserved "nothing" *> return Nothing)) <* reserved "::maybe char"
260+ (reserved "Nothing" *> return Nothing)) <* reserved "::maybe char"
261 return $ Atom maybeText
261 return $ Atom maybeText
263maybeIntAtomP :: Parser Atom
263maybeIntAtomP :: Parser Atom
264maybeIntAtomP = do
264maybeIntAtomP = do
265 maybeInt <- try $ ((Just . fromIntegral <$> (reserved "Just" *> integer)) <|>
265 maybeInt <- try $ ((Just . fromIntegral <$> (reserved "Just" *> integer)) <|>
266− (reserved "nothing" *> return Nothing)) <* reserved "::maybe int"
266+ (reserved "Nothing" *> return Nothing)) <* reserved "::maybe int"
267 return $ Atom (maybeInt :: Maybe Int)
267 return $ Atom (maybeInt :: Maybe Int)
269dateTimeAtomP :: Parser Atom
269dateTimeAtomP :: Parser Atom