trace tests

haskell · Oct 25, 2024 · d74ade7 · d74ade7
1 parent eb50012
commit d74ade7
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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)
     ]