git.iko.soy/typeable/servant
on master help sign in
Fixed some minor typos
commit0c01b0dba45cb11d248cbbeeb418460724ac6fbc authorAlexander Kjeldaas <ak@formalprivacy.com> dateFri 25 Mar 2016, 19:09 (11 years ago) parent0ad60fe
1 file changed+6−6
compare with master
unifiedsplit
servant-server/src/Servant/Server/Internal/ServantErr.hs+6−6
servant-server/src/Servant/Server/Internal/ServantErr.hs+6−6
@@ -112,7 +112,7 @@ err305 = ServantErr { errHTTPCode = 305
112112-- Example:
113113--
114114-- > failingHandler :: ExceptT ServantErr IO ()
115−-- > failingHandler = throwErr $ err307
115+-- > failingHandler = throwErr err307
116116--
117117err307 :: ServantErr
118118err307 = ServantErr { errHTTPCode = 307
@@ -210,7 +210,7 @@ err405 = ServantErr { errHTTPCode = 405
210210-- Example:
211211--
212212-- > failingHandler :: ExceptT ServantErr IO ()
213−-- > failingHandler = throwErr $ err406
213+-- > failingHandler = throwErr err406
214214--
215215err406 :: ServantErr
216216err406 = ServantErr { errHTTPCode = 406
@@ -224,7 +224,7 @@ err406 = ServantErr { errHTTPCode = 406
224224-- Example:
225225--
226226-- > failingHandler :: ExceptT ServantErr IO ()
227−-- > failingHandler = throwErr $ err407
227+-- > failingHandler = throwErr err407
228228--
229229err407 :: ServantErr
230230err407 = ServantErr { errHTTPCode = 407
@@ -266,7 +266,7 @@ err410 = ServantErr { errHTTPCode = 410
266266-- Example:
267267--
268268-- > failingHandler :: ExceptT ServantErr IO ()
269−-- > failingHandler = throwErr $ err411
269+-- > failingHandler = throwErr err411
270270--
271271err411 :: ServantErr
272272err411 = ServantErr { errHTTPCode = 411
@@ -308,7 +308,7 @@ err413 = ServantErr { errHTTPCode = 413
308308-- Example:
309309--
310310-- > failingHandler :: ExceptT ServantErr IO ()
311−-- > failingHandler = throwErr $ err414 { errBody = "Maxiumu length is 64." }
311+-- > failingHandler = throwErr $ err414 { errBody = "Maximum length is 64." }
312312--
313313err414 :: ServantErr
314314err414 = ServantErr { errHTTPCode = 414
@@ -364,7 +364,7 @@ err417 = ServantErr { errHTTPCode = 417
364364-- Example:
365365--
366366-- > failingHandler :: ExceptT ServantErr IO ()
367−-- > failingHandler = throwErr $ err300 { errBody = "Exception in module A.B.C:55. Have a great day!" }
367+-- > failingHandler = throwErr $ err500 { errBody = "Exception in module A.B.C:55. Have a great day!" }
368368--
369369err500 :: ServantErr
370370err500 = ServantErr { errHTTPCode = 500