From 3ff4e8fbb5adbafc487366c62d8b3638368acfb5 Mon Sep 17 00:00:00 2001 From: Kari Pahula Date: Tue, 5 Jul 2022 14:40:13 +0300 Subject: [PATCH] Use "date-time" format for UTCTime --- src/Data/Swagger/Internal/Schema.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Data/Swagger/Internal/Schema.hs b/src/Data/Swagger/Internal/Schema.hs index f1e4a3a..0369538 100644 --- a/src/Data/Swagger/Internal/Schema.hs +++ b/src/Data/Swagger/Internal/Schema.hs @@ -501,9 +501,9 @@ instance ToSchema NominalDiffTime where -- | -- >>> toSchema (Proxy :: Proxy UTCTime) ^. format --- Just "yyyy-mm-ddThh:MM:ssZ" +-- Just "date-time" instance ToSchema UTCTime where - declareNamedSchema _ = pure $ named "UTCTime" $ timeSchema "yyyy-mm-ddThh:MM:ssZ" + declareNamedSchema _ = pure $ named "UTCTime" $ timeSchema "date-time" & example ?~ toJSON (UTCTime (fromGregorian 2016 7 22) 0) instance ToSchema T.Text where declareNamedSchema = plain . paramSchemaToSchema