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