branch :: Monad m => View -> Transaction t m Branch
branch (View iref) = liftM vdBranch . Transaction.readIRef $ iref
branch :: Monad m => View -> Transaction t m Branch
branch (View iref) = liftM vdBranch . Transaction.readIRef $ iref
branch (View iref) = liftM vdBranch . Transaction.readIRef $ iref