diff --git a/datalog-lsp/src/Datalog/LSP.hs b/datalog-lsp/src/Datalog/LSP.hs index d484a2d..85ae988 100644 --- a/datalog-lsp/src/Datalog/LSP.hs +++ b/datalog-lsp/src/Datalog/LSP.hs @@ -25,7 +25,7 @@ initHandler = notificationHandler SMethod_Initialized $ \_ -> pure () serverDefinition :: LSPState -> ServerDefinition LSPState serverDefinition context = ServerDefinition - { parseConfig = \c v -> Right c + { parseConfig = \c _ -> Right c , onConfigChange = const $ pure () , defaultConfig = context , configSection = "demo"