mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-26 10:21:51 +00:00
77 lines
4.9 KiB
Haskell
77 lines
4.9 KiB
Haskell
module Seed where
|
|
|
|
import Startlude ( ($)
|
|
, Applicative(pure)
|
|
, Maybe(Nothing, Just)
|
|
, getCurrentTime
|
|
, MonadIO(liftIO)
|
|
)
|
|
import Database.Persist.Sql ( PersistStoreWrite(insert_, insertKey, insert) )
|
|
import Model ( Key(PkgRecordKey)
|
|
, PkgRecord(PkgRecord)
|
|
, Category(Category)
|
|
, PkgCategory(PkgCategory)
|
|
, VersionRecord(VersionRecord)
|
|
)
|
|
|
|
import TestImport ( runDBtest
|
|
, RegistryCtx
|
|
, SIO
|
|
, YesodExampleData
|
|
)
|
|
import Lib.Types.Category ( CategoryTitle(LIGHTNING, FEATURED, BITCOIN) )
|
|
|
|
seedBitcoinLndStack :: SIO (YesodExampleData RegistryCtx) ()
|
|
seedBitcoinLndStack = do
|
|
time <- liftIO getCurrentTime
|
|
_ <- runDBtest $ insertKey (PkgRecordKey "bitcoind") $ PkgRecord time
|
|
(Just time)
|
|
"Bitcoin Core"
|
|
"short desc bitcoin"
|
|
"long desc bitcoin"
|
|
"png"
|
|
_ <- runDBtest $ insert $ VersionRecord time
|
|
(Just time)
|
|
(PkgRecordKey "bitcoind")
|
|
"0.21.1.2"
|
|
"notes"
|
|
"0.3.0"
|
|
Nothing
|
|
_ <- runDBtest $ insert $ VersionRecord time
|
|
(Just time)
|
|
(PkgRecordKey "bitcoind")
|
|
"0.21.1.1"
|
|
"notes"
|
|
"0.3.0"
|
|
Nothing
|
|
_ <- runDBtest $ insertKey (PkgRecordKey "lnd") $ PkgRecord time
|
|
(Just time)
|
|
"Lightning Network Daemon"
|
|
"short desc lnd"
|
|
"long desc lnd"
|
|
"png"
|
|
_ <- runDBtest $ insert $ VersionRecord time (Just time) (PkgRecordKey "lnd") "0.13.3.0" "notes" "0.3.0" Nothing
|
|
_ <- runDBtest $ insert $ VersionRecord time (Just time) (PkgRecordKey "lnd") "0.13.3.1" "notes" "0.3.0" Nothing
|
|
_ <- runDBtest $ insertKey (PkgRecordKey "btc-rpc-proxy") $ PkgRecord time
|
|
(Just time)
|
|
"BTC RPC Proxy"
|
|
"short desc btc-rpc-proxy"
|
|
"long desc btc-rpc-proxy"
|
|
"png"
|
|
_ <- runDBtest $ insert $ VersionRecord time
|
|
(Just time)
|
|
(PkgRecordKey "btc-rpc-proxy")
|
|
"0.3.2.1"
|
|
"notes"
|
|
"0.3.0"
|
|
Nothing
|
|
featuredCat <- runDBtest $ insert $ Category time FEATURED Nothing "desc" 0
|
|
btcCat <- runDBtest $ insert $ Category time BITCOIN Nothing "desc" 0
|
|
lnCat <- runDBtest $ insert $ Category time LIGHTNING Nothing "desc" 0
|
|
_ <- runDBtest $ insert_ $ PkgCategory time (PkgRecordKey "bitcoind") featuredCat
|
|
_ <- runDBtest $ insert_ $ PkgCategory time (PkgRecordKey "lnd") lnCat
|
|
_ <- runDBtest $ insert_ $ PkgCategory time (PkgRecordKey "lnd") btcCat
|
|
_ <- runDBtest $ insert_ $ PkgCategory time (PkgRecordKey "bitcoind") btcCat
|
|
_ <- runDBtest $ insert_ $ PkgCategory time (PkgRecordKey "btc-rpc-proxy") btcCat
|
|
pure ()
|