transaction view changes = do
  b <- branch view
  Branch.newVersion b =<< mapM makeChange changes
  where
    makeChange (key, value) =
      flip (Change key) value `liftM` lookupBS view key

-- You get a store tagged however you like...
transaction view changes = do
  b <- branch view
  Branch.newVersion b =<< mapM makeChange changes
  where
    makeChange (key, value) =
      flip (Change key) value `liftM` lookupBS view key

-- You get a store tagged however you like...
transaction view changes = do
  b <- branch view
  Branch.newVersion b =<< mapM makeChange changes
  where
    makeChange (key, value) =
      flip (Change key) value `liftM` lookupBS view key

-- You get a store tagged however you like...