newtype over data
This commit is contained in:
parent
6f37a60f3b
commit
2222fa87c7
@ -14,6 +14,6 @@ type DLogLspM = LspM LSPState
|
|||||||
|
|
||||||
type UriBundle a = Map J.NormalizedUri a
|
type UriBundle a = Map J.NormalizedUri a
|
||||||
|
|
||||||
data LSPState = LSPState
|
newtype LSPState = LSPState
|
||||||
{ parseState :: TVar (UriBundle (Either (ParseErrorBundle Text Void) (Program' SrcLoc)))
|
{ parseState :: TVar (UriBundle (Either (ParseErrorBundle Text Void) (Program' SrcLoc)))
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user