diff options
author | Ziv Scully <ziv@mit.edu> | 2015-07-19 19:03:11 -0700 |
---|---|---|
committer | Ziv Scully <ziv@mit.edu> | 2015-07-19 19:03:11 -0700 |
commit | bc38beafd07b7ae6106a2fffda82084a08af7f06 (patch) | |
tree | 788e74a4e66ebe79ce8e03c2787c09e0ee529b0f /src/option_key_fn.sml | |
parent | 03b7950e3639899de788cac8824a0e7f4be8a0bd (diff) |
Rename C functions and remove functors nested inside modules.
Diffstat (limited to 'src/option_key_fn.sml')
-rw-r--r-- | src/option_key_fn.sml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/option_key_fn.sml b/src/option_key_fn.sml new file mode 100644 index 00000000..ba636d4e --- /dev/null +++ b/src/option_key_fn.sml @@ -0,0 +1,11 @@ +functor OptionKeyFn(K : ORD_KEY) : ORD_KEY = 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 |