git.iko.soy/typeable/swagger2
on master help sign in
Remove minLength from time schemas
25f217cNickolay Kudasov
src/Data/Swagger/Internal/Schema.hs−2
compare with master
unifiedsplit
@@ -277,7 +277,6 @@ timeSchema :: T.Text -> Schema
277timeSchema format = mempty
277timeSchema format = mempty
278 & schemaType .~ SwaggerString
278 & schemaType .~ SwaggerString
279 & schemaFormat ?~ format
279 & schemaFormat ?~ format
280− & schemaMinLength ?~ toInteger (T.length format)
281
280
282-- |
281-- |
283-- >>> toSchema (Proxy :: Proxy Day) ^. schemaFormat
282-- >>> toSchema (Proxy :: Proxy Day) ^. schemaFormat
@@ -296,7 +295,6 @@ instance ToSchema LocalTime where
296-- Just "yyyy-mm-ddThh:MM:ss(Z|+hh:MM)"
295-- Just "yyyy-mm-ddThh:MM:ss(Z|+hh:MM)"
297instance ToSchema ZonedTime where
296instance ToSchema ZonedTime where
298 declareNamedSchema _ = pure $ named "ZonedTime" $ timeSchema "yyyy-mm-ddThh:MM:ss(Z|+hh:MM)"
297 declareNamedSchema _ = pure $ named "ZonedTime" $ timeSchema "yyyy-mm-ddThh:MM:ss(Z|+hh:MM)"
299− & schemaMinLength ?~ toInteger (T.length "yyyy-mm-ddThh:MM:ssZ")
300
298
301instance ToSchema NominalDiffTime where
299instance ToSchema NominalDiffTime where
302 declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy Integer)
300 declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy Integer)