From f65fb137fac602bf08b91285ebb788244fd5dddf Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Sat, 9 Sep 2017 12:31:04 +0100
Subject: [PATCH] Define a Show instance for DiffF.

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

diff --git a/src/Diff.hs b/src/Diff.hs
index 119ec43bf..4e3bae1ce 100644
--- a/src/Diff.hs
+++ b/src/Diff.hs
@@ -108,3 +108,6 @@ instance Show1 f => Show2 (DiffF f) where
 
 instance (Show1 f, Show a) => Show1 (DiffF f a) where
   liftShowsPrec = liftShowsPrec2 showsPrec showList
+
+instance (Show1 f, Show a, Show b) => Show (DiffF f a b) where
+  showsPrec = showsPrec1