-- | Updates the journal; updates are visible immediately, but aren't necessarily
-- durable until the `STM ()` is run.
updateNowAsyncFlush :: u -> Journal a u -> STM (STM ())
updateNowAsyncFlush u j = append (updates j) True u
updateNowAsyncFlush :: u -> Journal a u -> STM (STM ())
updateNowAsyncFlush u j = append (updates j) True u
updateNowAsyncFlush u j = append (updates j) True u