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