Fix non-exhaustive pattern in LSP (#1896)

* fix an LSP exception on top level comment Found while testing #1895.
swarm-game · Jun 9, 2024 · 665949d · 665949d
1 parent cbaf54d
commit 665949d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/swarm-lang/Swarm/Language/LSP/VarUsage.hs b/src/swarm-lang/Swarm/Language/LSP/VarUsage.hs
@@ -92,7 +92,7 @@ getUsage ::
   BindingSites ->
   Syntax ->
   Usage
-getUsage bindings (Syntax _pos t) = case t of
+getUsage bindings (CSyntax _pos t _comments) = case t of
   TVar v -> Usage myUsages mempty
    where
     myUsages = case M.lookup v bindings of