From 6b2ae759abfc6c66c240535e6062decc1b9376af Mon Sep 17 00:00:00 2001
From: Patrick Aldis <patricktaldis@gmail.com>
Date: Mon, 9 Mar 2026 16:15:33 +0000
Subject: [PATCH] pull responder out of case

---
 datalog-lsp/src/Datalog/LSP/Highlight.hs | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/datalog-lsp/src/Datalog/LSP/Highlight.hs b/datalog-lsp/src/Datalog/LSP/Highlight.hs
index dbe71a6..6076a73 100644
--- a/datalog-lsp/src/Datalog/LSP/Highlight.hs
+++ b/datalog-lsp/src/Datalog/LSP/Highlight.hs
@@ -17,19 +17,18 @@ tokenHandler :: Handlers DLogLspM
 tokenHandler = requestHandler SMethod_TextDocumentSemanticTokensFull $ \req responder -> do
     LSPState parseRef <- getConfig
     p <- lift . readTVarIO $ parseRef
-    case M.lookup (currentBufferUri req) p of
-        Nothing ->
-            responder (Left $ TResponseError (InL LSPErrorCodes_RequestFailed) "Doc not bundle" Nothing)
-        Just (Left _) ->
-            responder (Left $ TResponseError (InL LSPErrorCodes_RequestFailed) "Failed to parse" Nothing)
-        Just (Right prog) -> do
-            responder
-                ( Right
+    responder $
+        case M.lookup (currentBufferUri req) p of
+            Nothing ->
+                Left $ TResponseError (InL LSPErrorCodes_RequestFailed) "Doc not bundle" Nothing
+            Just (Left _) ->
+                Left $ TResponseError (InL LSPErrorCodes_RequestFailed) "Failed to parse" Nothing
+            Just (Right prog) ->
+                Right
                     . InL
                     . fromRight (SemanticTokens Nothing [])
                     . makeSemanticTokens defaultSemanticTokensLegend
                     $ highlightProg prog
-                )
 
 highlightProg :: Program' SrcLoc -> [SemanticTokenAbsolute]
 highlightProg (Program _ rs) = rs >>= highlightRule