-- | Record a new checkpoint synchronously. When the returned `STM` completes,
-- the checkpoint is durable.
record :: Journal a u -> IO ()
record j = atomically (recordAsync j) >>= atomically
record :: Journal a u -> IO ()
record j = atomically (recordAsync j) >>= atomically
record j = atomically (recordAsync j) >>= atomically