mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-26 10:21:51 +00:00
89 lines
5.7 KiB
Haskell
89 lines
5.7 KiB
Haskell
module Seed where
|
|
|
|
import Database.Persist.Sql ( PersistStoreWrite(insert, insertKey, insert_) )
|
|
import Model ( Category(Category)
|
|
, Key(PkgRecordKey)
|
|
, PkgCategory(PkgCategory)
|
|
, PkgDependency(PkgDependency)
|
|
, PkgRecord(PkgRecord)
|
|
, VersionRecord(VersionRecord)
|
|
)
|
|
import Startlude ( ($)
|
|
, Applicative(pure)
|
|
, Maybe(Just, Nothing)
|
|
, MonadIO(liftIO)
|
|
, getCurrentTime
|
|
)
|
|
|
|
import Lib.Types.Category ( CategoryTitle(BITCOIN, FEATURED, LIGHTNING) )
|
|
import Prelude ( read )
|
|
import TestImport ( RegistryCtx
|
|
, SIO
|
|
, YesodExampleData
|
|
, runDBtest
|
|
)
|
|
|
|
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
|
|
_ <- runDBtest $ insert_ $ PkgDependency time
|
|
(PkgRecordKey "lnd")
|
|
"0.13.3.1"
|
|
(PkgRecordKey "bitcoind")
|
|
(read ">=0.21.1.2 <0.22.0")
|
|
_ <- runDBtest $ insert_ $ PkgDependency time
|
|
(PkgRecordKey "lnd")
|
|
"0.13.3.1"
|
|
(PkgRecordKey "btc-rpc-proxy")
|
|
(read ">=0.3.2.1 <0.4.0")
|
|
pure ()
|