From 8b9bc575b62b12cad62916b6c3b7d1b62deb4750 Mon Sep 17 00:00:00 2001
From: Timothy Clem <timothy.clem@gmail.com>
Date: Mon, 25 Mar 2019 13:14:04 -0700
Subject: [PATCH] Fix up tests

---
 test/Data/Functor/Listable.hs | 2 +-
 test/Reprinting/Spec.hs       | 2 +-
 test/Semantic/Spec.hs         | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/Data/Functor/Listable.hs b/test/Data/Functor/Listable.hs
index 18e39d542..91b3e373f 100644
--- a/test/Data/Functor/Listable.hs
+++ b/test/Data/Functor/Listable.hs
@@ -568,7 +568,7 @@ instance Listable Span where
   tiers = cons2 Span
 
 instance Listable Blob where
-  tiers = cons3 Blob
+  tiers = cons4 Blob
 
 instance Listable BlobPair where
   tiers = liftTiers tiers
diff --git a/test/Reprinting/Spec.hs b/test/Reprinting/Spec.hs
index 650181065..4aaaea53d 100644
--- a/test/Reprinting/Spec.hs
+++ b/test/Reprinting/Spec.hs
@@ -67,5 +67,5 @@ spec = describe "reprinting" $ do
       it "should be able to parse the output of a refactor" $ do
         let (Just tagged) = rewrite (mark Unmodified tree) (topDownAny increaseNumbers)
         let (Right printed) = runReprinter src defaultJSONPipeline tagged
-        tree' <- runTaskOrDie (parse jsonParser (Blob printed path Language.JSON))
+        tree' <- runTaskOrDie (parse jsonParser (Blob printed path Language.JSON mempty))
         length tree' `shouldSatisfy` (/= 0)
diff --git a/test/Semantic/Spec.hs b/test/Semantic/Spec.hs
index a6f5674de..860463704 100644
--- a/test/Semantic/Spec.hs
+++ b/test/Semantic/Spec.hs
@@ -22,4 +22,4 @@ spec = parallel $ do
       output <- fmap runBuilder . runTaskOrDie $ parseTermBuilder TermSExpression [methodsBlob]
       output `shouldBe` "(Statements\n  (Method\n    (Empty)\n    (Identifier)\n    (Statements)))\n"
   where
-    methodsBlob = Blob "def foo\nend\n" "methods.rb" Ruby
+    methodsBlob = Blob "def foo\nend\n" "methods.rb" Ruby mempty