-- | Helper to lift low-level LevelDB queries to backend monad
liftEnv :: Monad m => (LevelDBEnv -> ResourceT m a) -> LevelDBBackendT m a
liftEnv f = do
  e <- getEnv
  LevelDBBackendT . lift . lift $ f e
liftEnv :: Monad m => (LevelDBEnv -> ResourceT m a) -> LevelDBBackendT m a
liftEnv f = do
  e <- getEnv
  LevelDBBackendT . lift . lift $ f e
liftEnv f = do
  e <- getEnv
  LevelDBBackendT . lift . lift $ f e