redundant parameter

This commit is contained in:
Patrick Aldis 2026-03-06 18:11:17 +00:00
parent 7ac8aef519
commit 3a05d154d9

View File

@ -25,7 +25,7 @@ initHandler = notificationHandler SMethod_Initialized $ \_ -> pure ()
serverDefinition :: LSPState -> ServerDefinition LSPState serverDefinition :: LSPState -> ServerDefinition LSPState
serverDefinition context = serverDefinition context =
ServerDefinition ServerDefinition
{ parseConfig = \c v -> Right c { parseConfig = \c _ -> Right c
, onConfigChange = const $ pure () , onConfigChange = const $ pure ()
, defaultConfig = context , defaultConfig = context
, configSection = "demo" , configSection = "demo"