From d9ee1a3a044d2aaa88333717d061da41b1d53cd2 Mon Sep 17 00:00:00 2001 From: Luke Lau Date: Sun, 15 Dec 2019 19:52:08 +0000 Subject: [PATCH] Handle env vars set to "0" --- src/Language/Haskell/LSP/Test.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Language/Haskell/LSP/Test.hs b/src/Language/Haskell/LSP/Test.hs index 03e2a1a..bca640f 100644 --- a/src/Language/Haskell/LSP/Test.hs +++ b/src/Language/Haskell/LSP/Test.hs @@ -195,7 +195,9 @@ runSessionWithConfig config' serverExe caps rootDir session = do logStdErr' <- fromMaybe (logStdErr cfg) <$> checkEnv "LSP_TEST_LOG_STDERR" return $ cfg { logMessages = logMessages', logStdErr = logStdErr' } where checkEnv :: String -> IO (Maybe Bool) - checkEnv s = fmap (const True) <$> lookupEnv s + checkEnv s = fmap convertVal <$> lookupEnv s + convertVal "0" = False + convertVal _ = True -- | The current text contents of a document. documentContents :: TextDocumentIdentifier -> Session T.Text -- 2.30.2