impl: remove dead code: `unLeft`

diff --git a/tests/Golden/Utils.hs b/tests/Golden/Utils.hs
index 1334c3b332a96e00c597cadfac8556317d338e65..39a8ab9ce00f60891feb3131202765555e55b3fa 100644 (file)
--- a/tests/Golden/Utils.hs
+++ b/tests/Golden/Utils.hs
@@ -29,8 +29,3 @@ goldenDiff ref new = ["diff", "-u", "-w", "-B", ref, new]
 -- Hence 'ShowLetName' is used with 'False' there.
 resetTHNameCounter :: IO ()
 resetTHNameCounter = IORef.writeIORef TH.counter 0
-
-unLeft :: Either String BSL.ByteString -> IO BSL.ByteString
-unLeft lr = case lr of
-  Left err -> return $ TL.encodeUtf8 $ TL.pack err
-  Right a  -> return a