13 lines
350 B
Haskell
13 lines
350 B
Haskell
|
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
|