aboutsummaryrefslogtreecommitdiff
path: root/src/Util/ZRange
diff options
context:
space:
mode:
authorGravatar Jason Gross <jagro@google.com>2018-06-15 16:03:48 -0400
committerGravatar Jason Gross <jagro@google.com>2018-06-15 16:03:48 -0400
commitc6acfd965279da0ea5c0436310750501ba81c07f (patch)
treedbd432a46407cfbe61434aa248a2587cabba0804 /src/Util/ZRange
parent7e73cd94d14e36f0fe6f4295984908cb046e1dc7 (diff)
Add ErrorT monad, and Show class
Diffstat (limited to 'src/Util/ZRange')
-rw-r--r--src/Util/ZRange/Show.v8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Util/ZRange/Show.v b/src/Util/ZRange/Show.v
new file mode 100644
index 000000000..2fac57b16
--- /dev/null
+++ b/src/Util/ZRange/Show.v
@@ -0,0 +1,8 @@
+Require Import Coq.Strings.String.
+Require Import Crypto.Util.Strings.Show.
+Require Import Crypto.Util.ZRange.
+Local Open Scope string_scope.
+
+Global Instance show_zrange : Show zrange
+ := fun _ r
+ => "[" ++ Hex.show_Z false (lower r) ++ " ~> " ++ Hex.show_Z false (upper r) ++ "]".