+ -- extract Uri out from DocumentChange
+ documentChangeUri :: DocumentChange -> Uri
+ documentChangeUri (InL x) = x ^. textDocument . uri
+ documentChangeUri (InR (InL x)) = x ^. uri
+ documentChangeUri (InR (InR (InL x))) = x ^. oldUri
+ documentChangeUri (InR (InR (InR x))) = x ^. uri
+