Added some CPP to suppress incomplete-patterns warning in dhall-lsp-s…

…erver package
dhall-lang · Nov 7, 2024 · 0958014 · 0958014
1 parent bd5d91e
commit 0958014
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/dhall-lsp-server/src/Dhall/LSP/Handlers.hs b/dhall-lsp-server/src/Dhall/LSP/Handlers.hs
@@ -679,6 +679,9 @@ handleErrorWithDefault respond _default = flip catchE handler
                           Error   -> MessageType_Error
                           Warning -> MessageType_Warning
                           Info    -> MessageType_Info
+#if !MIN_TOOL_VERSION_ghc(9,2,0)
+                          Log     -> MessageType_Log
+#endif
 
                     liftLSP $ LSP.sendNotification SMethod_WindowShowMessage ShowMessageParams{..}
                     respond (Right _default)
diff --git a/dhall-lsp-server/src/Dhall/LSP/Server.hs b/dhall-lsp-server/src/Dhall/LSP/Server.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE BlockArguments     #-}
+{-# LANGUAGE CPP                #-}
 {-# LANGUAGE ExplicitNamespaces #-}
 {-# LANGUAGE LambdaCase         #-}
 {-# LANGUAGE RecordWildCards    #-}
@@ -126,6 +127,9 @@ runWith settings = withLogger $ \ioLogger -> do
                           Error   -> MessageType_Error
                           Warning -> MessageType_Warning
                           Info    -> MessageType_Info
+#if !MIN_TOOL_VERSION_ghc(9,2,0)
+                          Log     -> MessageType_Log
+#endif
 
                     LSP.sendNotification SMethod_WindowShowMessage ShowMessageParams{..}
                     liftIO (fail (Text.unpack _message))