module Zenith.Core where

import qualified Data.Text as T
import Database.Persist
import Database.Persist.Sqlite
import Zenith.DB

checkWallets :: T.Text -> IO [Entity ZcashWallet]
checkWallets dbName = do
  runSqlite dbName $ do runMigration migrateAll
  wallets <- runSqlite dbName $ selectList [ZcashWalletBirthdayHeight >. 0] []
  return wallets