From 51d873f81eef6e00d0f52491c67113a59e13ff3c Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Mon, 16 Jul 2018 17:05:56 -0400
Subject: [PATCH] Add Listable instances for Join These Blob

---
 test/Data/Functor/Listable.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/test/Data/Functor/Listable.hs b/test/Data/Functor/Listable.hs
index 891389588..bb4508dee 100644
--- a/test/Data/Functor/Listable.hs
+++ b/test/Data/Functor/Listable.hs
@@ -42,6 +42,7 @@ import Data.Range
 import Data.Record
 import Data.Semigroup (Semigroup(..))
 import Data.Source
+import Data.Blob
 import Data.Span
 import qualified Data.Syntax as Syntax
 import qualified Data.Syntax.Literal as Literal
@@ -521,6 +522,12 @@ instance Listable Pos where
 instance Listable Span where
   tiers = cons2 Span
 
+instance Listable Blob where
+  tiers = cons3 Blob
+
+instance Listable (Join These Blob) where
+  tiers = liftTiers tiers
+
 instance Listable Source where
   tiers = fromUTF8 `mapT` tiers