add Doctest for TimeOfDay in ParamSchema
commit48a545d3cadf7f31d676721403ec43a9a2f05bba
authoranneloreegger <annelore.e@hotmail.com>
dateSat 20 Jul 2019, 15:37 (7 years ago)
parentbd00ca5
src/Data/Swagger/Internal/ParamSchema.hs+3
@@ -193,6 +193,9 @@ timeParamSchema fmt = mempty
193193instance ToParamSchema Day where
194194 toParamSchema _ = timeParamSchema "date"
195195
196+-- |
197+-- >>> toParamSchema (Proxy :: Proxy TimeOfDay) ^. format
198+-- Just "hh:MM:ss"
196199instance ToParamSchema TimeOfDay where
197200 toParamSchema _ = timeParamSchema "hh:MM:ss"
198201