store :: Monad m => View -> Store t' (Transaction t m)
store view = Store {
  storeNewKey = Transaction.newKey,
  storeLookup = lookupBS view,
  storeAtomicWrite = transaction view
  }
store :: Monad m => View -> Store t' (Transaction t m)
store view = Store {
  storeNewKey = Transaction.newKey,
  storeLookup = lookupBS view,
  storeAtomicWrite = transaction view
  }
store view = Store {
  storeNewKey = Transaction.newKey,
  storeLookup = lookupBS view,
  storeAtomicWrite = transaction view
  }