diff --git a/test/CorpusSpec.hs b/test/CorpusSpec.hs
index a8a7b4ca4..5f77f0c15 100644
--- a/test/CorpusSpec.hs
+++ b/test/CorpusSpec.hs
@@ -80,8 +80,8 @@ testDiff renderer paths diff matcher = do
   where parser = parserForFilepath (fst paths)
         sourceBlobs sources = pure S.SourceBlob <*> sources <*> pure mempty <*> paths <*> pure (Just S.defaultPlainBlob)
 
-newtype Verbatim = Verbatim String
+newtype Verbatim = Verbatim Text
   deriving Eq
 
 instance Show Verbatim where
-  showsPrec _ (Verbatim string) = (string++)
+  showsPrec _ (Verbatim string) = (T.unpack string ++)