putDate :: String -> String -> Value -> Put
putDate fmt a (DateValue d)   = showp (formatTime defaultTimeLocale fmt d)
putDate :: String -> String -> Value -> Put
putDate fmt a (DateValue d)   = showp (formatTime defaultTimeLocale fmt d)
putDate fmt a (DateValue d)   = showp (formatTime defaultTimeLocale fmt d)