From 23e82c069f50257e6f64f6416fa3b498f601eebb Mon Sep 17 00:00:00 2001 From: George Thomas Date: Thu, 8 Jan 2026 00:49:41 +0000 Subject: [PATCH] Make test names more opaque by removing instances --- haskell/Pre.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/haskell/Pre.hs b/haskell/Pre.hs index b0fc03d..d31b7c7 100644 --- a/haskell/Pre.hs +++ b/haskell/Pre.hs @@ -120,7 +120,6 @@ import Data.Maybe import Data.Ord import Data.Sequence (Seq) import Data.Stream.Infinite (Stream ((:>))) -import Data.String (IsString) import Data.Text (Text) import Data.Text qualified as T import Data.Text.Encoding (encodeUtf8) @@ -300,10 +299,9 @@ data TestFailure deriving (Show) newtype TestName = TestName Text - deriving newtype (IsString, Show) -getTestTree :: TestTree m r -> Tree TestName -getTestTree (TestTree name _ ts) = Node name $ map getTestTree ts +getTestTree :: TestTree m r -> Tree Text +getTestTree (TestTree (TestName name) _ ts) = Node name $ map getTestTree ts displayTestResultsConsole :: Maybe Int -> TestResult -> TL.Text displayTestResultsConsole terminalWidth testResult =