From 14bbf6856b844c31df6a8a5642214ca2d543d80e Mon Sep 17 00:00:00 2001
From: Patrick Thomson <patrickt@github.com>
Date: Wed, 12 Jun 2019 12:46:30 -0400
Subject: [PATCH] Kill `verbatim`, since we have more principled golden tests
 now.

---
 test/SpecHelpers.hs | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/test/SpecHelpers.hs b/test/SpecHelpers.hs
index 7b480994c..3a27a15b3 100644
--- a/test/SpecHelpers.hs
+++ b/test/SpecHelpers.hs
@@ -10,8 +10,6 @@ module SpecHelpers
 , runTaskOrDie
 , TaskSession(..)
 , testEvaluating
-, verbatim
-, Verbatim(..)
 , toList
 , Config
 , LogQueue
@@ -195,17 +193,3 @@ lookupDeclaration name (currentScope, currentFrame) heap scopeGraph = do
   path <- ScopeGraph.lookupScopePath name currentScope scopeGraph
   frameAddress <- Heap.lookupFrameAddress path currentFrame heap
   toList <$> Heap.getSlotValue (Slot frameAddress (Heap.pathPosition path)) heap
-
-newtype Verbatim = Verbatim ByteString
-  deriving (Eq)
-
-instance Show Verbatim where
-  showsPrec _ (Verbatim byteString) = (T.unpack (T.decodeUtf8 byteString) ++)
-
-verbatim :: ByteString -> Verbatim
-verbatim = Verbatim . stripWhitespace
-  where
-    stripWhitespace :: ByteString -> ByteString
-    stripWhitespace = B.foldl' go B.empty
-      where go acc x | x `B.elem` " \t\n" = acc
-                     | otherwise = B.snoc acc x