, bumpTimeoutId
, logMsg
, LogMsgType(..)
+ , documentChangeUri
)
where
updateState msg
yield msg
-
-- extract Uri out from DocumentChange
+-- didn't put this in `lsp-types` because TH was getting in the way
documentChangeUri :: DocumentChange -> Uri
documentChangeUri (InL x) = x ^. textDocument . uri
documentChangeUri (InR (InL x)) = x ^. uri