From a7f7a2506fce24c9d5610464d10a14db2fecadd9 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Tue, 6 Jan 2026 23:16:08 +0000
Subject: [PATCH] Minor refactor

---
 haskell/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/haskell/Main.hs b/haskell/Main.hs
index d9c7ee2..5482d83 100644
--- a/haskell/Main.hs
+++ b/haskell/Main.hs
@@ -20,7 +20,7 @@ import System.Console.Terminal.Size qualified as Terminal.Size
 
 main :: IO ()
 main = do
-    -- terminalWidth <- fmap Terminal.Size.width <$> Terminal.Size.size -- TODO this doesn't work in GHCID or GHCIWatch...
+    -- terminalWidth <- Terminal.Size.width <<$>> Terminal.Size.size -- TODO this doesn't work in GHCID or GHCIWatch...
     terminalWidth <- pure $ Just 60
     putStrLn $ drawTree $ show <$> getTestTree tests
     TL.putStrLn . displayTestResultsConsole terminalWidth =<< runTests () tests