git.iko.soy/typeable/swagger2
on master help sign in
Fix doctests
commit8f921805dfe14354b78a34c212b07e673fc3bd13 authorNickolay Kudasov <nickolay.kudasov@gmail.com> dateTue 8 Dec 2015, 17:17 (11 years ago) parent1cc4ec7
1 file changed+6−6
src/Data/Swagger/Internal/Param.hs+6−6
src/Data/Swagger/Internal/Param.hs+6−6
@@ -95,25 +95,25 @@ timeParamSchema format loc = mempty
9595 & schemaMinLength ?~ toInteger (length format)
9696
9797-- |
98−-- >>> toParamSchema (Proxy :: Proxy Day) ^. paramOtherSchemaFormat
98+-- >>> toParamSchema (Proxy :: Proxy Day) ParamQuery ^. paramOtherSchemaFormat
9999-- Just "yyyy-mm-dd"
100100instance ToParamSchema Day where
101101 toParamSchema _ = timeParamSchema "yyyy-mm-dd"
102102
103103-- |
104−-- >>> toSchema (Proxy :: Proxy LocalTime) ^. schemaFormat
104+-- >>> toParamSchema (Proxy :: Proxy LocalTime) ParamQuery ^. paramOtherSchemaFormat
105105-- Just "yyyy-mm-ddThh:MM:ss"
106106instance ToParamSchema LocalTime where
107107 toParamSchema _ = timeParamSchema "yyyy-mm-ddThh:MM:ss"
108108
109109-- |
110−-- >>> toSchema (Proxy :: Proxy ZonedTime) ^. schemaFormat
111−-- Just "yyyy-mm-ddTHH:MM:ss+HHMM"
110+-- >>> toParamSchema (Proxy :: Proxy ZonedTime) ParamQuery ^. paramOtherSchemaFormat
111+-- Just "yyyy-mm-ddThh:MM:ss+hhMM"
112112instance ToParamSchema ZonedTime where
113− toParamSchema _ = timeParamSchema "yyyy-mm-ddThh:MM:ss+HHMM"
113+ toParamSchema _ = timeParamSchema "yyyy-mm-ddThh:MM:ss+hhMM"
114114
115115-- |
116−-- >>> toSchema (Proxy :: Proxy UTCTime) ^. schemaFormat
116+-- >>> toParamSchema (Proxy :: Proxy UTCTime) ParamQuery ^. paramOtherSchemaFormat
117117-- Just "yyyy-mm-ddThh:MM:ssZ"
118118instance ToParamSchema UTCTime where
119119 toParamSchema _ = timeParamSchema "yyyy-mm-ddThh:MM:ssZ"