, curTimeoutId :: Int
, overridingTimeout :: Bool
-- ^ The last received message from the server.
, curTimeoutId :: Int
, overridingTimeout :: Bool
-- ^ The last received message from the server.
let fp = fromJust $ uriToFilePath uri
contents <- liftIO $ T.readFile fp
let item = TextDocumentItem (filePathToUri fp) "" 0 contents
let fp = fromJust $ uriToFilePath uri
contents <- liftIO $ T.readFile fp
let item = TextDocumentItem (filePathToUri fp) "" 0 contents