@@ -42,6 +42,6 @@ atomFromString DoubleAtomType strIn = case readMaybe strIn of
42 Just d -> Right $ DoubleAtom d
42 Just d -> Right $ DoubleAtom d
43 Nothing -> Left (ParseError "Failed to parse double")
43 Nothing -> Left (ParseError "Failed to parse double")
44atomFromString DateAtomType strIn = case parseTime defaultTimeLocale "%Y-%m-%d" strIn of
44atomFromString DateAtomType strIn = case parseTime defaultTimeLocale "%Y-%m-%d" strIn of
45− Just date -> Right $ DateTimeAtom date
45+ Just date -> Right $ DateAtom date
46 Nothing -> Left $ ParseError "Failed to parse datetime"
46 Nothing -> Left $ ParseError "Failed to parse datetime"
47atomFromString AnyAtomType _ = Left $ ParseError "Parsing AnyAtomType is not supported"
47atomFromString AnyAtomType _ = Left $ ParseError "Parsing AnyAtomType is not supported"