diff --git a/haskell/Main.hs b/haskell/Main.hs
index b9ae408..02bc6a1 100644
--- a/haskell/Main.hs
+++ b/haskell/Main.hs
@@ -24,7 +24,13 @@ main = do
     -- terminalWidth <- Terminal.Size.width <<$>> Terminal.Size.size -- TODO this doesn't work in GHCID or GHCIWatch...
     terminalWidth <- pure $ Just 62
     T.putStrLn $ drawTree $ getTestTree tests
-    TL.putStrLn . displayTestResultsConsole terminalWidth =<< runTests TestRunnerOpts{regenerateGoldenFiles = False} () tests
+    TL.putStrLn . displayTestResultsConsole terminalWidth
+        =<< runTests
+            TestRunnerOpts
+                { regenerateGoldenFiles = False
+                }
+            ()
+            tests
 
 tests :: TestTree IO ()
 tests =