From c6acfd965279da0ea5c0436310750501ba81c07f Mon Sep 17 00:00:00 2001
From: Jason Gross <jagro@google.com>
Date: Fri, 15 Jun 2018 16:03:48 -0400
Subject: Add ErrorT monad, and Show class

---
 src/Util/ZRange/Show.v | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 src/Util/ZRange/Show.v

(limited to 'src/Util/ZRange')

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) ++ "]".
-- 
cgit v1.2.3