@@ -257,13 +257,13 @@ stringAtomP = liftA (Atom . T.pack) quotedString
257257maybeTextAtomP :: Parser Atom
258258maybeTextAtomP = do
259259 maybeText <- try $ ((Just . T.pack <$> (reserved "Just" *> quotedString)) <|>
260− (reserved "nothing" *> return Nothing)) <* reserved "::maybe char"
260+ (reserved "Nothing" *> return Nothing)) <* reserved "::maybe char"
261261 return $ Atom maybeText
262262
263263maybeIntAtomP :: Parser Atom
264264maybeIntAtomP = do
265265 maybeInt <- try $ ((Just . fromIntegral <$> (reserved "Just" *> integer)) <|>
266− (reserved "nothing" *> return Nothing)) <* reserved "::maybe int"
266+ (reserved "Nothing" *> return Nothing)) <* reserved "::maybe int"
267267 return $ Atom (maybeInt :: Maybe Int)
268268
269269dateTimeAtomP :: Parser Atom