newtype over data

2026-03-09 16:18:15 +00:00 · 2026-03-09 16:18:15 +00:00 · 2222fa87c7
commit 2222fa87c7
parent 6f37a60f3b
1 changed files with 1 additions and 1 deletions
--- a/datalog-lsp/src/Datalog/LSP/Types.hs
+++ b/datalog-lsp/src/Datalog/LSP/Types.hs
@ -14,6 +14,6 @@ type DLogLspM = LspM LSPState

 type UriBundle a = Map J.NormalizedUri a

-data LSPState = LSPState
+newtype LSPState = LSPState
    { parseState :: TVar (UriBundle (Either (ParseErrorBundle Text Void) (Program' SrcLoc)))
    }