From d74ade79917eb791cb5a87231120a98b7d28aa9e Mon Sep 17 00:00:00 2001
From: Patrick <fwy996602672@gmail.com>
Date: Sat, 26 Oct 2024 00:13:41 +0800
Subject: [PATCH] trace tests

---
 test/functional/FunctionalBadProject.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/test/functional/FunctionalBadProject.hs b/test/functional/FunctionalBadProject.hs
index 150f9cdb04..77d2e3ae9d 100644
--- a/test/functional/FunctionalBadProject.hs
+++ b/test/functional/FunctionalBadProject.hs
@@ -4,6 +4,7 @@ module FunctionalBadProject (tests) where
 
 import           Control.Lens
 import qualified Data.Text                  as T
+import           Debug.Trace                (traceIO)
 import qualified Language.LSP.Protocol.Lens as L
 import           Test.Hls
 import           Test.Hls.Command
@@ -23,6 +24,8 @@ tests = testGroup "behaviour on malformed projects"
             [diag] <- waitForDiagnosticsFrom doc
             liftIO $ assertBool "missing module name" $
                 "Other" `T.isInfixOf` (diag ^. L.message)
+            -- liftIO $ traceIO $ show diag
+            liftIO $ traceIO $ show $ diag ^. L.message
             liftIO $ assertBool  "hie-bios message" $
                 "Cabal" `T.isInfixOf` (diag ^. L.message)
     ]