patrickaldis/geolog-lsp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Highlighting doesnt crash on failed parse

Browse Source
This commit is contained in:
Patrick Aldis 2026-03-03 16:42:20 +00:00
parent eac62e4198
commit dd761e8321
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
datalog-lsp/src/Datalog/LSP/Highlight.hs
View File

@ -18,9 +18,10 @@ tokenHandler :: Handlers (LspM ())
tokenHandler = requestHandler SMethod_TextDocumentSemanticTokensFull $ \req responder -> do
c <- virtualFileText . fromJust <$> getVirtualFile (toNormalizedUri $ req ^. docUri)
let
parsedProgram = fromRight (error "") $ runParser parseProgram "" c
absTokens = highlightProg parsedProgram
tokens = fromRight (error "")$ makeSemanticTokens defaultSemanticTokensLegend absTokens
absTokens = case runParser parseProgram "" c of
Left _ -> []
Right prog -> highlightProg prog
tokens = fromRight (error "") $ makeSemanticTokens defaultSemanticTokensLegend absTokens
responder (Right $ InL tokens)