readDay :: String -> Day
readDay str = readTime defaultTimeLocale (iso8601DateFormat Nothing) str
readDay :: String -> Day
readDay str = readTime defaultTimeLocale (iso8601DateFormat Nothing) str
readDay str = readTime defaultTimeLocale (iso8601DateFormat Nothing) str