Mercurial > urweb

view src/option_key_fn.sml @ 2282:19b233bb3176

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make cache flushes safe for transactions (not sure about LRU bump on read).
author Ziv Scully <ziv@mit.edu>
date Thu, 12 Nov 2015 09:47:20 -0500
parents e4a7e3cd6f11
children
line wrap: on
line source
functor OptionKeyFn(K : ORD_KEY)
        : ORD_KEY where type ord_key = K.ord_key option = struct

type ord_key = K.ord_key option

val compare =
 fn (NONE, NONE) => EQUAL
  | (NONE, _) => LESS
  | (_, NONE) => GREATER
  | (SOME x, SOME y) => K.compare (x, y)

end