git.iko.soy/typeable/swagger2
on master help sign in
add Doctest for TimeOfDay in ParamSchema
48a545danneloreegger
src/Data/Swagger/Internal/ParamSchema.hs+3
compare with master
unifiedsplit
@@ -193,6 +193,9 @@ timeParamSchema fmt = mempty
193instance ToParamSchema Day where
193instance ToParamSchema Day where
194 toParamSchema _ = timeParamSchema "date"
194 toParamSchema _ = timeParamSchema "date"
195
195
196+-- |
197+-- >>> toParamSchema (Proxy :: Proxy TimeOfDay) ^. format
198+-- Just "hh:MM:ss"
196instance ToParamSchema TimeOfDay where
199instance ToParamSchema TimeOfDay where
197 toParamSchema _ = timeParamSchema "hh:MM:ss"
200 toParamSchema _ = timeParamSchema "hh:MM:ss"
198
201