trace tests

Author: soulomoon

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)
     ]