Mercurial > urweb

comparison lib/ur/top.ur @ 2035:a3435112b83e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Top.max and Top.min
author Adam Chlipala <adam@chlipala.net>
date Sun, 29 Jun 2014 08:33:47 -0400
parents 69daa6d70299
children 4cd36865e0b5
comparison
equal deleted inserted replaced
2034:1d36654c2d21 2035:a3435112b83e
403 in 403 in
404 case postType pb of 404 case postType pb of
405 "application/x-www-form-urlencoded" => postFields' (postData pb) 405 "application/x-www-form-urlencoded" => postFields' (postData pb)
406 | _ => error <xml>Tried to get POST fields, but MIME type is not "application/x-www-form-urlencoded"</xml> 406 | _ => error <xml>Tried to get POST fields, but MIME type is not "application/x-www-form-urlencoded"</xml>
407 end 407 end
408
409 fun max [t] ( _ : ord t) (x : t) (y : t) : t =
410 if x > y then x else y
411 fun min [t] ( _ : ord t) (x : t) (y : t) : t =
412 if x < y then x else y