From 48e51196795acdb90c60dc30bf5bbab9d6aace68 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Mon, 13 Mar 2017 11:53:06 -0400
Subject: [PATCH] Define a Show1 instance for EditGraph.

---
 src/SES/Myers.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs
index 7d084e122..a3fc60d9d 100644
--- a/src/SES/Myers.hs
+++ b/src/SES/Myers.hs
@@ -249,3 +249,6 @@ instance Show s => Show1 (State s) where
 
 instance Show s => Show (State s a) where
   showsPrec = liftShowsPrec2 showsPrec showList (const (const identity)) (const identity)
+
+instance Show1 EditGraph where
+  liftShowsPrec sp sl d (EditGraph as bs) = showsBinaryWith (liftShowsVector sp sl) (liftShowsVector sp sl) "EditGraph" d as bs