diff --git a/datalog-lsp/src/Datalog/LSP/Types.hs b/datalog-lsp/src/Datalog/LSP/Types.hs
index e0649e5..7339839 100644
--- 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)))
     }