From 535d985aa94861a57a494f465f0664164fe9a00e Mon Sep 17 00:00:00 2001 From: Patrick Aldis Date: Mon, 9 Mar 2026 16:07:21 +0000 Subject: [PATCH] better ordered typeclasses --- datalog-lsp/src/Datalog/LSP/DocChange.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/datalog-lsp/src/Datalog/LSP/DocChange.hs b/datalog-lsp/src/Datalog/LSP/DocChange.hs index ad47b82..7e1a1c4 100644 --- a/datalog-lsp/src/Datalog/LSP/DocChange.hs +++ b/datalog-lsp/src/Datalog/LSP/DocChange.hs @@ -23,7 +23,7 @@ docOpenHandler = notificationHandler SMethod_TextDocumentDidOpen updateState docChangeHandler :: Handlers DLogLspM docChangeHandler = notificationHandler SMethod_TextDocumentDidChange updateState -updateState :: (HasParams s a1, MonadLsp LSPState m, HasUri a2 Uri, HasTextDocument a1 a2, MonadIO m) => s -> m () +updateState :: (MonadIO m, MonadLsp LSPState m, HasParams s a1, HasTextDocument a1 a2, HasUri a2 Uri) => s -> m () updateState req = do let uri = currentBufferUri req