reqId <- readMVar lfvar >>= getNextReqId
let RequestMessage _ _ _ (ExecuteCommandParams "doAnEdit" (Just (List [val])) _) = req
Success docUri = fromJSON val
reqId <- readMVar lfvar >>= getNextReqId
let RequestMessage _ _ _ (ExecuteCommandParams "doAnEdit" (Just (List [val])) _) = req
Success docUri = fromJSON val