BtcLsp.Storage.Model

Documentation

data User

Constructors

User

Fields

• userNodePubKey :: !NodePubKey
• userLatestNonce :: !Nonce
• userInsertedAt :: !UTCTime
• userUpdatedAt :: !UTCTime

Instances

Out User

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> User -> Doc

doc :: User -> Doc

docList :: [User] -> Doc

Generic User

Defined in BtcLsp.Storage.Model

Associated Types

type Rep User :: Type -> Type

Methods

from :: User -> Rep User x

to :: Rep User x -> User

Show User

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> User -> ShowS

show :: User -> String

showList :: [User] -> ShowS

HasTable User

Defined in BtcLsp.Storage.Model

Methods

getTable :: Key User -> Table

Eq User

Defined in BtcLsp.Storage.Model

Methods

(==) :: User -> User -> Bool

(/=) :: User -> User -> Bool

Ord User

Defined in BtcLsp.Storage.Model

Methods

compare :: User -> User -> Ordering

(<) :: User -> User -> Bool

(<=) :: User -> User -> Bool

(>) :: User -> User -> Bool

(>=) :: User -> User -> Bool

max :: User -> User -> User

min :: User -> User -> User

PersistEntity User

Defined in BtcLsp.Storage.Model

Associated Types

type PersistEntityBackend User

data Key User

data EntityField User :: Type -> Type

data Unique User

Methods

keyToValues :: Key User -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key User)

persistIdField :: EntityField User (Key User)

entityDef :: proxy User -> EntityDef

persistFieldDef :: EntityField User typ -> FieldDef

toPersistFields :: User -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text User

persistUniqueKeys :: User -> [Unique User]

persistUniqueToFieldNames :: Unique User -> NonEmpty (FieldNameHS, FieldNameDB)

persistUniqueToValues :: Unique User -> [PersistValue]

fieldLens :: EntityField User field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity User -> f (Entity User)

keyFromRecordM :: Maybe (User -> Key User)

PersistField User

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: User -> PersistValue

fromPersistValue :: PersistValue -> Either Text User

AtLeastOneUniqueKey User

Defined in BtcLsp.Storage.Model

Methods

requireUniquesP :: User -> NonEmpty (Unique User)

OnlyOneUniqueKey User

Defined in BtcLsp.Storage.Model

Methods

onlyUniqueP :: User -> Unique User

PersistFieldSql User

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy User -> SqlType

ToBackendKey SqlBackend User

Defined in BtcLsp.Storage.Model

Methods

toBackendKey :: Key User -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key User

SymbolToField "insertedAt" User UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField User UTCTime

SymbolToField "latestNonce" User Nonce

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField User Nonce

SymbolToField "nodePubKey" User NodePubKey

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField User NodePubKey

SymbolToField "updatedAt" User UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField User UTCTime

SymbolToField "userId" SwapIntoLn UserId

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn UserId

SymbolToField "id" User (Key User)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField User (Key User)

Out (Key User)

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> Key User -> Doc

doc :: Key User -> Doc

docList :: [Key User] -> Doc

FromJSON (Key User)

Defined in BtcLsp.Storage.Model

Methods

parseJSON :: Value -> Parser (Key User)

parseJSONList :: Value -> Parser [Key User]

ToJSON (Key User)

Defined in BtcLsp.Storage.Model

Methods

toJSON :: Key User -> Value

toEncoding :: Key User -> Encoding

toJSONList :: [Key User] -> Value

toEncodingList :: [Key User] -> Encoding

Generic (Key User)

Defined in BtcLsp.Storage.Model

Associated Types

type Rep (Key User) :: Type -> Type

Methods

from :: Key User -> Rep (Key User) x

to :: Rep (Key User) x -> Key User

Read (Key User)

Defined in BtcLsp.Storage.Model

Methods

readsPrec :: Int -> ReadS (Key User)

readList :: ReadS [Key User]

readPrec :: ReadPrec (Key User)

readListPrec :: ReadPrec [Key User]

Show (Key User)

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> Key User -> ShowS

show :: Key User -> String

showList :: [Key User] -> ShowS

Eq (Key User)

Defined in BtcLsp.Storage.Model

Methods

(==) :: Key User -> Key User -> Bool

(/=) :: Key User -> Key User -> Bool

Ord (Key User)

Defined in BtcLsp.Storage.Model

Methods

compare :: Key User -> Key User -> Ordering

(<) :: Key User -> Key User -> Bool

(<=) :: Key User -> Key User -> Bool

(>) :: Key User -> Key User -> Bool

(>=) :: Key User -> Key User -> Bool

max :: Key User -> Key User -> Key User

min :: Key User -> Key User -> Key User

FromHttpApiData (Key User)

Defined in BtcLsp.Storage.Model

Methods

parseUrlPiece :: Text -> Either Text (Key User)

parseHeader :: ByteString -> Either Text (Key User)

parseQueryParam :: Text -> Either Text (Key User)

ToHttpApiData (Key User)

Defined in BtcLsp.Storage.Model

Methods

toUrlPiece :: Key User -> Text

toEncodedUrlPiece :: Key User -> Builder

toHeader :: Key User -> ByteString

toQueryParam :: Key User -> Text

PathPiece (Key User)

Defined in BtcLsp.Storage.Model

Methods

fromPathPiece :: Text -> Maybe (Key User)

toPathPiece :: Key User -> Text

PersistField (Key User)

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: Key User -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key User)

PersistFieldSql (Key User)

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy (Key User) -> SqlType

type Rep User

Defined in BtcLsp.Storage.Model

type Rep User = D1 ('MetaData "User" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'False) (C1 ('MetaCons "User" 'PrefixI 'True) ((S1 ('MetaSel ('Just "userNodePubKey") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NodePubKey) :*: S1 ('MetaSel ('Just "userLatestNonce") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Nonce)) :*: (S1 ('MetaSel ('Just "userInsertedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "userUpdatedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime))))

data EntityField User typ

Defined in BtcLsp.Storage.Model

data EntityField User typ

• = typ ~ UserId => UserId
• | typ ~ NodePubKey => UserNodePubKey
• | typ ~ Nonce => UserLatestNonce
• | typ ~ UTCTime => UserInsertedAt
• | typ ~ UTCTime => UserUpdatedAt

newtype Key User

Defined in BtcLsp.Storage.Model

newtype Key User = UserKey {

• unUserKey :: BackendKey SqlBackend

}

type PersistEntityBackend User

Defined in BtcLsp.Storage.Model

type PersistEntityBackend User = SqlBackend

data Unique User

Defined in BtcLsp.Storage.Model

data Unique User = UniqueUser NodePubKey

type Rep (Key User)

Defined in BtcLsp.Storage.Model

type Rep (Key User) = D1 ('MetaData "Key" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'True) (C1 ('MetaCons "UserKey" 'PrefixI 'True) (S1 ('MetaSel ('Just "unUserKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (BackendKey SqlBackend))))

type UserId = Key User

data SwapIntoLn

Constructors

SwapIntoLn

Fields

• swapIntoLnUuid :: !(Uuid 'SwapIntoLnTable)
• swapIntoLnUserId :: !UserId
• swapIntoLnFundAddress :: !(OnChainAddress 'Fund)
• swapIntoLnLspFeeAndChangeAddress :: !(OnChainAddress 'Gain)
• swapIntoLnRefundAddress :: !(OnChainAddress 'Refund)
• swapIntoLnChanCapUser :: !(Money 'Usr 'Ln 'Fund)
• swapIntoLnChanCapLsp :: !(Money 'Lsp 'Ln 'Fund)
• swapIntoLnFeeLsp :: !(Money 'Lsp 'OnChain 'Gain)
• swapIntoLnFeeMiner :: !(Money 'Lsp 'OnChain 'Loss)
• swapIntoLnStatus :: !SwapStatus
• swapIntoLnPrivacy :: !Privacy
• swapIntoLnExpiresAt :: !UTCTime
• swapIntoLnInsertedAt :: !UTCTime
• swapIntoLnUpdatedAt :: !UTCTime

Instances

Out SwapIntoLn

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> SwapIntoLn -> Doc

doc :: SwapIntoLn -> Doc

docList :: [SwapIntoLn] -> Doc

Generic SwapIntoLn

Defined in BtcLsp.Storage.Model

Associated Types

type Rep SwapIntoLn :: Type -> Type

Methods

from :: SwapIntoLn -> Rep SwapIntoLn x

to :: Rep SwapIntoLn x -> SwapIntoLn

Show SwapIntoLn

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> SwapIntoLn -> ShowS

show :: SwapIntoLn -> String

showList :: [SwapIntoLn] -> ShowS

HasTable SwapIntoLn

Defined in BtcLsp.Storage.Model

Methods

getTable :: Key SwapIntoLn -> Table

Eq SwapIntoLn

Defined in BtcLsp.Storage.Model

Methods

(==) :: SwapIntoLn -> SwapIntoLn -> Bool

(/=) :: SwapIntoLn -> SwapIntoLn -> Bool

PersistEntity SwapIntoLn

Defined in BtcLsp.Storage.Model

Associated Types

type PersistEntityBackend SwapIntoLn

data Key SwapIntoLn

data EntityField SwapIntoLn :: Type -> Type

data Unique SwapIntoLn

Methods

keyToValues :: Key SwapIntoLn -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key SwapIntoLn)

persistIdField :: EntityField SwapIntoLn (Key SwapIntoLn)

entityDef :: proxy SwapIntoLn -> EntityDef

persistFieldDef :: EntityField SwapIntoLn typ -> FieldDef

toPersistFields :: SwapIntoLn -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text SwapIntoLn

persistUniqueKeys :: SwapIntoLn -> [Unique SwapIntoLn]

persistUniqueToFieldNames :: Unique SwapIntoLn -> NonEmpty (FieldNameHS, FieldNameDB)

persistUniqueToValues :: Unique SwapIntoLn -> [PersistValue]

fieldLens :: EntityField SwapIntoLn field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity SwapIntoLn -> f (Entity SwapIntoLn)

keyFromRecordM :: Maybe (SwapIntoLn -> Key SwapIntoLn)

PersistField SwapIntoLn

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: SwapIntoLn -> PersistValue

fromPersistValue :: PersistValue -> Either Text SwapIntoLn

AtLeastOneUniqueKey SwapIntoLn

Defined in BtcLsp.Storage.Model

Methods

requireUniquesP :: SwapIntoLn -> NonEmpty (Unique SwapIntoLn)

(TypeError (MultipleUniqueKeysError SwapIntoLn) :: Constraint) => OnlyOneUniqueKey SwapIntoLn

Defined in BtcLsp.Storage.Model

Methods

onlyUniqueP :: SwapIntoLn -> Unique SwapIntoLn

PersistFieldSql SwapIntoLn

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy SwapIntoLn -> SqlType

ToBackendKey SqlBackend SwapIntoLn

Defined in BtcLsp.Storage.Model

Methods

toBackendKey :: Key SwapIntoLn -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key SwapIntoLn

SymbolToField "expiresAt" SwapIntoLn UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn UTCTime

SymbolToField "insertedAt" SwapIntoLn UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn UTCTime

SymbolToField "privacy" SwapIntoLn Privacy

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn Privacy

SymbolToField "status" SwapIntoLn SwapStatus

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn SwapStatus

SymbolToField "swapIntoLnId" SwapUtxo SwapIntoLnId

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo SwapIntoLnId

SymbolToField "updatedAt" SwapIntoLn UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn UTCTime

SymbolToField "userId" SwapIntoLn UserId

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn UserId

SymbolToField "fundAddress" SwapIntoLn (OnChainAddress 'Fund)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn (OnChainAddress 'Fund)

SymbolToField "id" SwapIntoLn (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn (Key SwapIntoLn)

SymbolToField "lspFeeAndChangeAddress" SwapIntoLn (OnChainAddress 'Gain)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn (OnChainAddress 'Gain)

SymbolToField "refundAddress" SwapIntoLn (OnChainAddress 'Refund)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn (OnChainAddress 'Refund)

SymbolToField "swapIntoLnId" LnChan (Maybe SwapIntoLnId)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan (Maybe SwapIntoLnId)

SymbolToField "uuid" SwapIntoLn (Uuid 'SwapIntoLnTable)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn (Uuid 'SwapIntoLnTable)

SymbolToField "chanCapLsp" SwapIntoLn (Money 'Lsp 'Ln 'Fund)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn (Money 'Lsp 'Ln 'Fund)

SymbolToField "chanCapUser" SwapIntoLn (Money 'Usr 'Ln 'Fund)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn (Money 'Usr 'Ln 'Fund)

SymbolToField "feeLsp" SwapIntoLn (Money 'Lsp 'OnChain 'Gain)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn (Money 'Lsp 'OnChain 'Gain)

SymbolToField "feeMiner" SwapIntoLn (Money 'Lsp 'OnChain 'Loss)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapIntoLn (Money 'Lsp 'OnChain 'Loss)

Out (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> Key SwapIntoLn -> Doc

doc :: Key SwapIntoLn -> Doc

docList :: [Key SwapIntoLn] -> Doc

FromJSON (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

parseJSON :: Value -> Parser (Key SwapIntoLn)

parseJSONList :: Value -> Parser [Key SwapIntoLn]

ToJSON (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

toJSON :: Key SwapIntoLn -> Value

toEncoding :: Key SwapIntoLn -> Encoding

toJSONList :: [Key SwapIntoLn] -> Value

toEncodingList :: [Key SwapIntoLn] -> Encoding

Generic (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Associated Types

type Rep (Key SwapIntoLn) :: Type -> Type

Methods

from :: Key SwapIntoLn -> Rep (Key SwapIntoLn) x

to :: Rep (Key SwapIntoLn) x -> Key SwapIntoLn

Read (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

readsPrec :: Int -> ReadS (Key SwapIntoLn)

readList :: ReadS [Key SwapIntoLn]

readPrec :: ReadPrec (Key SwapIntoLn)

readListPrec :: ReadPrec [Key SwapIntoLn]

Show (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> Key SwapIntoLn -> ShowS

show :: Key SwapIntoLn -> String

showList :: [Key SwapIntoLn] -> ShowS

Eq (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

(==) :: Key SwapIntoLn -> Key SwapIntoLn -> Bool

(/=) :: Key SwapIntoLn -> Key SwapIntoLn -> Bool

Ord (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

compare :: Key SwapIntoLn -> Key SwapIntoLn -> Ordering

(<) :: Key SwapIntoLn -> Key SwapIntoLn -> Bool

(<=) :: Key SwapIntoLn -> Key SwapIntoLn -> Bool

(>) :: Key SwapIntoLn -> Key SwapIntoLn -> Bool

(>=) :: Key SwapIntoLn -> Key SwapIntoLn -> Bool

max :: Key SwapIntoLn -> Key SwapIntoLn -> Key SwapIntoLn

min :: Key SwapIntoLn -> Key SwapIntoLn -> Key SwapIntoLn

FromHttpApiData (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

parseUrlPiece :: Text -> Either Text (Key SwapIntoLn)

parseHeader :: ByteString -> Either Text (Key SwapIntoLn)

parseQueryParam :: Text -> Either Text (Key SwapIntoLn)

ToHttpApiData (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

toUrlPiece :: Key SwapIntoLn -> Text

toEncodedUrlPiece :: Key SwapIntoLn -> Builder

toHeader :: Key SwapIntoLn -> ByteString

toQueryParam :: Key SwapIntoLn -> Text

PathPiece (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

fromPathPiece :: Text -> Maybe (Key SwapIntoLn)

toPathPiece :: Key SwapIntoLn -> Text

PersistField (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: Key SwapIntoLn -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key SwapIntoLn)

PersistFieldSql (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy (Key SwapIntoLn) -> SqlType

type Rep SwapIntoLn

Defined in BtcLsp.Storage.Model

type Rep SwapIntoLn = D1 ('MetaData "SwapIntoLn" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'False) (C1 ('MetaCons "SwapIntoLn" 'PrefixI 'True) (((S1 ('MetaSel ('Just "swapIntoLnUuid") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Uuid 'SwapIntoLnTable)) :*: (S1 ('MetaSel ('Just "swapIntoLnUserId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UserId) :*: S1 ('MetaSel ('Just "swapIntoLnFundAddress") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (OnChainAddress 'Fund)))) :*: ((S1 ('MetaSel ('Just "swapIntoLnLspFeeAndChangeAddress") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (OnChainAddress 'Gain)) :*: S1 ('MetaSel ('Just "swapIntoLnRefundAddress") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (OnChainAddress 'Refund))) :*: (S1 ('MetaSel ('Just "swapIntoLnChanCapUser") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Money 'Usr 'Ln 'Fund)) :*: S1 ('MetaSel ('Just "swapIntoLnChanCapLsp") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Money 'Lsp 'Ln 'Fund))))) :*: ((S1 ('MetaSel ('Just "swapIntoLnFeeLsp") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Money 'Lsp 'OnChain 'Gain)) :*: (S1 ('MetaSel ('Just "swapIntoLnFeeMiner") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Money 'Lsp 'OnChain 'Loss)) :*: S1 ('MetaSel ('Just "swapIntoLnStatus") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SwapStatus))) :*: ((S1 ('MetaSel ('Just "swapIntoLnPrivacy") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Privacy) :*: S1 ('MetaSel ('Just "swapIntoLnExpiresAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime)) :*: (S1 ('MetaSel ('Just "swapIntoLnInsertedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "swapIntoLnUpdatedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime))))))

data EntityField SwapIntoLn typ

Defined in BtcLsp.Storage.Model

data EntityField SwapIntoLn typ

• = typ ~ SwapIntoLnId => SwapIntoLnId
• | typ ~ Uuid 'SwapIntoLnTable => SwapIntoLnUuid
• | typ ~ UserId => SwapIntoLnUserId
• | typ ~ OnChainAddress 'Fund => SwapIntoLnFundAddress
• | typ ~ OnChainAddress 'Gain => SwapIntoLnLspFeeAndChangeAddress
• | typ ~ OnChainAddress 'Refund => SwapIntoLnRefundAddress
• | typ ~ Money 'Usr 'Ln 'Fund => SwapIntoLnChanCapUser
• | typ ~ Money 'Lsp 'Ln 'Fund => SwapIntoLnChanCapLsp
• | typ ~ Money 'Lsp 'OnChain 'Gain => SwapIntoLnFeeLsp
• | typ ~ Money 'Lsp 'OnChain 'Loss => SwapIntoLnFeeMiner
• | typ ~ SwapStatus => SwapIntoLnStatus
• | typ ~ Privacy => SwapIntoLnPrivacy
• | typ ~ UTCTime => SwapIntoLnExpiresAt
• | typ ~ UTCTime => SwapIntoLnInsertedAt
• | typ ~ UTCTime => SwapIntoLnUpdatedAt

newtype Key SwapIntoLn

Defined in BtcLsp.Storage.Model

newtype Key SwapIntoLn = SwapIntoLnKey {

• unSwapIntoLnKey :: BackendKey SqlBackend

}

type PersistEntityBackend SwapIntoLn

Defined in BtcLsp.Storage.Model

type PersistEntityBackend SwapIntoLn = SqlBackend

data Unique SwapIntoLn

Defined in BtcLsp.Storage.Model

data Unique SwapIntoLn

• = UniqueSwapIntoLnFundInvUuid (Uuid 'SwapIntoLnTable)
• | UniqueSwapIntoLnFundAddress (OnChainAddress 'Fund)

type Rep (Key SwapIntoLn)

Defined in BtcLsp.Storage.Model

type Rep (Key SwapIntoLn) = D1 ('MetaData "Key" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'True) (C1 ('MetaCons "SwapIntoLnKey" 'PrefixI 'True) (S1 ('MetaSel ('Just "unSwapIntoLnKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (BackendKey SqlBackend))))

type SwapIntoLnId = Key SwapIntoLn

data Block

Constructors

Block

Fields

• blockHeight :: !BlkHeight
• blockHash :: !BlkHash
• blockStatus :: !BlkStatus
• blockInsertedAt :: !UTCTime
• blockUpdatedAt :: !UTCTime

Instances

Out Block

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> Block -> Doc

doc :: Block -> Doc

docList :: [Block] -> Doc

Generic Block

Defined in BtcLsp.Storage.Model

Associated Types

type Rep Block :: Type -> Type

Methods

from :: Block -> Rep Block x

to :: Rep Block x -> Block

Show Block

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> Block -> ShowS

show :: Block -> String

showList :: [Block] -> ShowS

HasTable Block

Defined in BtcLsp.Storage.Model

Methods

getTable :: Key Block -> Table

Eq Block

Defined in BtcLsp.Storage.Model

Methods

(==) :: Block -> Block -> Bool

(/=) :: Block -> Block -> Bool

Ord Block

Defined in BtcLsp.Storage.Model

Methods

compare :: Block -> Block -> Ordering

(<) :: Block -> Block -> Bool

(<=) :: Block -> Block -> Bool

(>) :: Block -> Block -> Bool

(>=) :: Block -> Block -> Bool

max :: Block -> Block -> Block

min :: Block -> Block -> Block

PersistEntity Block

Defined in BtcLsp.Storage.Model

Associated Types

type PersistEntityBackend Block

data Key Block

data EntityField Block :: Type -> Type

data Unique Block

Methods

keyToValues :: Key Block -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key Block)

persistIdField :: EntityField Block (Key Block)

entityDef :: proxy Block -> EntityDef

persistFieldDef :: EntityField Block typ -> FieldDef

toPersistFields :: Block -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text Block

persistUniqueKeys :: Block -> [Unique Block]

persistUniqueToFieldNames :: Unique Block -> NonEmpty (FieldNameHS, FieldNameDB)

persistUniqueToValues :: Unique Block -> [PersistValue]

fieldLens :: EntityField Block field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity Block -> f (Entity Block)

keyFromRecordM :: Maybe (Block -> Key Block)

PersistField Block

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: Block -> PersistValue

fromPersistValue :: PersistValue -> Either Text Block

AtLeastOneUniqueKey Block

Defined in BtcLsp.Storage.Model

Methods

requireUniquesP :: Block -> NonEmpty (Unique Block)

OnlyOneUniqueKey Block

Defined in BtcLsp.Storage.Model

Methods

onlyUniqueP :: Block -> Unique Block

PersistFieldSql Block

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy Block -> SqlType

ToBackendKey SqlBackend Block

Defined in BtcLsp.Storage.Model

Methods

toBackendKey :: Key Block -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key Block

SymbolToField "blockId" SwapUtxo BlockId

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo BlockId

SymbolToField "hash" Block BlkHash

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField Block BlkHash

SymbolToField "height" Block BlkHeight

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField Block BlkHeight

SymbolToField "insertedAt" Block UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField Block UTCTime

SymbolToField "status" Block BlkStatus

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField Block BlkStatus

SymbolToField "updatedAt" Block UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField Block UTCTime

SymbolToField "id" Block (Key Block)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField Block (Key Block)

SymbolToField "refundBlockId" SwapUtxo (Maybe BlockId)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo (Maybe BlockId)

Out (Key Block)

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> Key Block -> Doc

doc :: Key Block -> Doc

docList :: [Key Block] -> Doc

FromJSON (Key Block)

Defined in BtcLsp.Storage.Model

Methods

parseJSON :: Value -> Parser (Key Block)

parseJSONList :: Value -> Parser [Key Block]

ToJSON (Key Block)

Defined in BtcLsp.Storage.Model

Methods

toJSON :: Key Block -> Value

toEncoding :: Key Block -> Encoding

toJSONList :: [Key Block] -> Value

toEncodingList :: [Key Block] -> Encoding

Generic (Key Block)

Defined in BtcLsp.Storage.Model

Associated Types

type Rep (Key Block) :: Type -> Type

Methods

from :: Key Block -> Rep (Key Block) x

to :: Rep (Key Block) x -> Key Block

Read (Key Block)

Defined in BtcLsp.Storage.Model

Methods

readsPrec :: Int -> ReadS (Key Block)

readList :: ReadS [Key Block]

readPrec :: ReadPrec (Key Block)

readListPrec :: ReadPrec [Key Block]

Show (Key Block)

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> Key Block -> ShowS

show :: Key Block -> String

showList :: [Key Block] -> ShowS

Eq (Key Block)

Defined in BtcLsp.Storage.Model

Methods

(==) :: Key Block -> Key Block -> Bool

(/=) :: Key Block -> Key Block -> Bool

Ord (Key Block)

Defined in BtcLsp.Storage.Model

Methods

compare :: Key Block -> Key Block -> Ordering

(<) :: Key Block -> Key Block -> Bool

(<=) :: Key Block -> Key Block -> Bool

(>) :: Key Block -> Key Block -> Bool

(>=) :: Key Block -> Key Block -> Bool

max :: Key Block -> Key Block -> Key Block

min :: Key Block -> Key Block -> Key Block

FromHttpApiData (Key Block)

Defined in BtcLsp.Storage.Model

Methods

parseUrlPiece :: Text -> Either Text (Key Block)

parseHeader :: ByteString -> Either Text (Key Block)

parseQueryParam :: Text -> Either Text (Key Block)

ToHttpApiData (Key Block)

Defined in BtcLsp.Storage.Model

Methods

toUrlPiece :: Key Block -> Text

toEncodedUrlPiece :: Key Block -> Builder

toHeader :: Key Block -> ByteString

toQueryParam :: Key Block -> Text

PathPiece (Key Block)

Defined in BtcLsp.Storage.Model

Methods

fromPathPiece :: Text -> Maybe (Key Block)

toPathPiece :: Key Block -> Text

PersistField (Key Block)

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: Key Block -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key Block)

PersistFieldSql (Key Block)

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy (Key Block) -> SqlType

type Rep Block

Defined in BtcLsp.Storage.Model

type Rep Block = D1 ('MetaData "Block" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'False) (C1 ('MetaCons "Block" 'PrefixI 'True) ((S1 ('MetaSel ('Just "blockHeight") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 BlkHeight) :*: S1 ('MetaSel ('Just "blockHash") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 BlkHash)) :*: (S1 ('MetaSel ('Just "blockStatus") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 BlkStatus) :*: (S1 ('MetaSel ('Just "blockInsertedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "blockUpdatedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime)))))

data EntityField Block typ

Defined in BtcLsp.Storage.Model

data EntityField Block typ

• = typ ~ BlockId => BlockId
• | typ ~ BlkHeight => BlockHeight
• | typ ~ BlkHash => BlockHash
• | typ ~ BlkStatus => BlockStatus
• | typ ~ UTCTime => BlockInsertedAt
• | typ ~ UTCTime => BlockUpdatedAt

newtype Key Block

Defined in BtcLsp.Storage.Model

newtype Key Block = BlockKey {

• unBlockKey :: BackendKey SqlBackend

}

type PersistEntityBackend Block

Defined in BtcLsp.Storage.Model

type PersistEntityBackend Block = SqlBackend

data Unique Block

Defined in BtcLsp.Storage.Model

data Unique Block = UniqueBlock BlkHash

type Rep (Key Block)

Defined in BtcLsp.Storage.Model

type Rep (Key Block) = D1 ('MetaData "Key" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'True) (C1 ('MetaCons "BlockKey" 'PrefixI 'True) (S1 ('MetaSel ('Just "unBlockKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (BackendKey SqlBackend))))

type BlockId = Key Block

data SwapUtxo

Constructors

SwapUtxo

Fields

• swapUtxoSwapIntoLnId :: !SwapIntoLnId
• swapUtxoBlockId :: !BlockId
• swapUtxoTxid :: !(TxId 'Funding)
• swapUtxoVout :: !(Vout 'Funding)
• swapUtxoAmount :: !(Money 'Usr 'OnChain 'Fund)
• swapUtxoStatus :: !SwapUtxoStatus
• swapUtxoRefundBlockId :: !(Maybe BlockId)
• swapUtxoRefundTxId :: !(Maybe (TxId 'Funding))
• swapUtxoLockId :: !(Maybe UtxoLockId)
• swapUtxoInsertedAt :: !UTCTime
• swapUtxoUpdatedAt :: !UTCTime

Instances

Out SwapUtxo

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> SwapUtxo -> Doc

doc :: SwapUtxo -> Doc

docList :: [SwapUtxo] -> Doc

Generic SwapUtxo

Defined in BtcLsp.Storage.Model

Associated Types

type Rep SwapUtxo :: Type -> Type

Methods

from :: SwapUtxo -> Rep SwapUtxo x

to :: Rep SwapUtxo x -> SwapUtxo

Show SwapUtxo

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> SwapUtxo -> ShowS

show :: SwapUtxo -> String

showList :: [SwapUtxo] -> ShowS

Eq SwapUtxo

Defined in BtcLsp.Storage.Model

Methods

(==) :: SwapUtxo -> SwapUtxo -> Bool

(/=) :: SwapUtxo -> SwapUtxo -> Bool

Ord SwapUtxo

Defined in BtcLsp.Storage.Model

Methods

compare :: SwapUtxo -> SwapUtxo -> Ordering

(<) :: SwapUtxo -> SwapUtxo -> Bool

(<=) :: SwapUtxo -> SwapUtxo -> Bool

(>) :: SwapUtxo -> SwapUtxo -> Bool

(>=) :: SwapUtxo -> SwapUtxo -> Bool

max :: SwapUtxo -> SwapUtxo -> SwapUtxo

min :: SwapUtxo -> SwapUtxo -> SwapUtxo

PersistEntity SwapUtxo

Defined in BtcLsp.Storage.Model

Associated Types

type PersistEntityBackend SwapUtxo

data Key SwapUtxo

data EntityField SwapUtxo :: Type -> Type

data Unique SwapUtxo

Methods

keyToValues :: Key SwapUtxo -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key SwapUtxo)

persistIdField :: EntityField SwapUtxo (Key SwapUtxo)

entityDef :: proxy SwapUtxo -> EntityDef

persistFieldDef :: EntityField SwapUtxo typ -> FieldDef

toPersistFields :: SwapUtxo -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text SwapUtxo

persistUniqueKeys :: SwapUtxo -> [Unique SwapUtxo]

persistUniqueToFieldNames :: Unique SwapUtxo -> NonEmpty (FieldNameHS, FieldNameDB)

persistUniqueToValues :: Unique SwapUtxo -> [PersistValue]

fieldLens :: EntityField SwapUtxo field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity SwapUtxo -> f (Entity SwapUtxo)

keyFromRecordM :: Maybe (SwapUtxo -> Key SwapUtxo)

PersistField SwapUtxo

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: SwapUtxo -> PersistValue

fromPersistValue :: PersistValue -> Either Text SwapUtxo

AtLeastOneUniqueKey SwapUtxo

Defined in BtcLsp.Storage.Model

Methods

requireUniquesP :: SwapUtxo -> NonEmpty (Unique SwapUtxo)

OnlyOneUniqueKey SwapUtxo

Defined in BtcLsp.Storage.Model

Methods

onlyUniqueP :: SwapUtxo -> Unique SwapUtxo

PersistFieldSql SwapUtxo

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy SwapUtxo -> SqlType

ToBackendKey SqlBackend SwapUtxo

Defined in BtcLsp.Storage.Model

Methods

toBackendKey :: Key SwapUtxo -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key SwapUtxo

SymbolToField "blockId" SwapUtxo BlockId

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo BlockId

SymbolToField "insertedAt" SwapUtxo UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo UTCTime

SymbolToField "status" SwapUtxo SwapUtxoStatus

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo SwapUtxoStatus

SymbolToField "swapIntoLnId" SwapUtxo SwapIntoLnId

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo SwapIntoLnId

SymbolToField "updatedAt" SwapUtxo UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo UTCTime

SymbolToField "id" SwapUtxo (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo (Key SwapUtxo)

SymbolToField "lockId" SwapUtxo (Maybe UtxoLockId)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo (Maybe UtxoLockId)

SymbolToField "refundBlockId" SwapUtxo (Maybe BlockId)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo (Maybe BlockId)

SymbolToField "refundTxId" SwapUtxo (Maybe (TxId 'Funding))

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo (Maybe (TxId 'Funding))

SymbolToField "txid" SwapUtxo (TxId 'Funding)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo (TxId 'Funding)

SymbolToField "vout" SwapUtxo (Vout 'Funding)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo (Vout 'Funding)

SymbolToField "amount" SwapUtxo (Money 'Usr 'OnChain 'Fund)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField SwapUtxo (Money 'Usr 'OnChain 'Fund)

Out (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> Key SwapUtxo -> Doc

doc :: Key SwapUtxo -> Doc

docList :: [Key SwapUtxo] -> Doc

FromJSON (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

parseJSON :: Value -> Parser (Key SwapUtxo)

parseJSONList :: Value -> Parser [Key SwapUtxo]

ToJSON (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

toJSON :: Key SwapUtxo -> Value

toEncoding :: Key SwapUtxo -> Encoding

toJSONList :: [Key SwapUtxo] -> Value

toEncodingList :: [Key SwapUtxo] -> Encoding

Generic (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Associated Types

type Rep (Key SwapUtxo) :: Type -> Type

Methods

from :: Key SwapUtxo -> Rep (Key SwapUtxo) x

to :: Rep (Key SwapUtxo) x -> Key SwapUtxo

Read (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

readsPrec :: Int -> ReadS (Key SwapUtxo)

readList :: ReadS [Key SwapUtxo]

readPrec :: ReadPrec (Key SwapUtxo)

readListPrec :: ReadPrec [Key SwapUtxo]

Show (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> Key SwapUtxo -> ShowS

show :: Key SwapUtxo -> String

showList :: [Key SwapUtxo] -> ShowS

Eq (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

(==) :: Key SwapUtxo -> Key SwapUtxo -> Bool

(/=) :: Key SwapUtxo -> Key SwapUtxo -> Bool

Ord (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

compare :: Key SwapUtxo -> Key SwapUtxo -> Ordering

(<) :: Key SwapUtxo -> Key SwapUtxo -> Bool

(<=) :: Key SwapUtxo -> Key SwapUtxo -> Bool

(>) :: Key SwapUtxo -> Key SwapUtxo -> Bool

(>=) :: Key SwapUtxo -> Key SwapUtxo -> Bool

max :: Key SwapUtxo -> Key SwapUtxo -> Key SwapUtxo

min :: Key SwapUtxo -> Key SwapUtxo -> Key SwapUtxo

FromHttpApiData (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

parseUrlPiece :: Text -> Either Text (Key SwapUtxo)

parseHeader :: ByteString -> Either Text (Key SwapUtxo)

parseQueryParam :: Text -> Either Text (Key SwapUtxo)

ToHttpApiData (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

toUrlPiece :: Key SwapUtxo -> Text

toEncodedUrlPiece :: Key SwapUtxo -> Builder

toHeader :: Key SwapUtxo -> ByteString

toQueryParam :: Key SwapUtxo -> Text

PathPiece (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

fromPathPiece :: Text -> Maybe (Key SwapUtxo)

toPathPiece :: Key SwapUtxo -> Text

PersistField (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: Key SwapUtxo -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key SwapUtxo)

PersistFieldSql (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy (Key SwapUtxo) -> SqlType

type Rep SwapUtxo

Defined in BtcLsp.Storage.Model

type Rep SwapUtxo = D1 ('MetaData "SwapUtxo" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'False) (C1 ('MetaCons "SwapUtxo" 'PrefixI 'True) (((S1 ('MetaSel ('Just "swapUtxoSwapIntoLnId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SwapIntoLnId) :*: S1 ('MetaSel ('Just "swapUtxoBlockId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 BlockId)) :*: (S1 ('MetaSel ('Just "swapUtxoTxid") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (TxId 'Funding)) :*: (S1 ('MetaSel ('Just "swapUtxoVout") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Vout 'Funding)) :*: S1 ('MetaSel ('Just "swapUtxoAmount") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Money 'Usr 'OnChain 'Fund))))) :*: ((S1 ('MetaSel ('Just "swapUtxoStatus") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SwapUtxoStatus) :*: (S1 ('MetaSel ('Just "swapUtxoRefundBlockId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe BlockId)) :*: S1 ('MetaSel ('Just "swapUtxoRefundTxId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (TxId 'Funding))))) :*: (S1 ('MetaSel ('Just "swapUtxoLockId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe UtxoLockId)) :*: (S1 ('MetaSel ('Just "swapUtxoInsertedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "swapUtxoUpdatedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime))))))

data EntityField SwapUtxo typ

Defined in BtcLsp.Storage.Model

data EntityField SwapUtxo typ

• = typ ~ SwapUtxoId => SwapUtxoId
• | typ ~ SwapIntoLnId => SwapUtxoSwapIntoLnId
• | typ ~ BlockId => SwapUtxoBlockId
• | typ ~ TxId 'Funding => SwapUtxoTxid
• | typ ~ Vout 'Funding => SwapUtxoVout
• | typ ~ Money 'Usr 'OnChain 'Fund => SwapUtxoAmount
• | typ ~ SwapUtxoStatus => SwapUtxoStatus
• | typ ~ Maybe BlockId => SwapUtxoRefundBlockId
• | typ ~ Maybe (TxId 'Funding) => SwapUtxoRefundTxId
• | typ ~ Maybe UtxoLockId => SwapUtxoLockId
• | typ ~ UTCTime => SwapUtxoInsertedAt
• | typ ~ UTCTime => SwapUtxoUpdatedAt

newtype Key SwapUtxo

Defined in BtcLsp.Storage.Model

newtype Key SwapUtxo = SwapUtxoKey {

• unSwapUtxoKey :: BackendKey SqlBackend

}

type PersistEntityBackend SwapUtxo

Defined in BtcLsp.Storage.Model

type PersistEntityBackend SwapUtxo = SqlBackend

data Unique SwapUtxo

Defined in BtcLsp.Storage.Model

data Unique SwapUtxo = UniqueSwapUtxo (TxId 'Funding) (Vout 'Funding)

type Rep (Key SwapUtxo)

Defined in BtcLsp.Storage.Model

type Rep (Key SwapUtxo) = D1 ('MetaData "Key" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'True) (C1 ('MetaCons "SwapUtxoKey" 'PrefixI 'True) (S1 ('MetaSel ('Just "unSwapUtxoKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (BackendKey SqlBackend))))

type SwapUtxoId = Key SwapUtxo

data LnChan

Constructors

LnChan

Fields

• lnChanSwapIntoLnId :: !(Maybe SwapIntoLnId)
• lnChanFundingTxId :: !(TxId 'Funding)
• lnChanFundingVout :: !(Vout 'Funding)
• lnChanClosingTxId :: !(Maybe (TxId 'Closing))
• lnChanExtId :: !(Maybe ChanId)
• lnChanBak :: !(Maybe SingleChanBackupBlob)
• lnChanTotalSatoshisSent :: !MSat
• lnChanTotalSatoshisReceived :: !MSat
• lnChanStatus :: !LnChanStatus
• lnChanInsertedAt :: !UTCTime
• lnChanUpdatedAt :: !UTCTime
• lnChanTransactedAt :: !UTCTime

Instances

Out LnChan

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> LnChan -> Doc

doc :: LnChan -> Doc

docList :: [LnChan] -> Doc

Generic LnChan

Defined in BtcLsp.Storage.Model

Associated Types

type Rep LnChan :: Type -> Type

Methods

from :: LnChan -> Rep LnChan x

to :: Rep LnChan x -> LnChan

Show LnChan

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> LnChan -> ShowS

show :: LnChan -> String

showList :: [LnChan] -> ShowS

HasTable LnChan

Defined in BtcLsp.Storage.Model

Methods

getTable :: Key LnChan -> Table

Eq LnChan

Defined in BtcLsp.Storage.Model

Methods

(==) :: LnChan -> LnChan -> Bool

(/=) :: LnChan -> LnChan -> Bool

Ord LnChan

Defined in BtcLsp.Storage.Model

Methods

compare :: LnChan -> LnChan -> Ordering

(<) :: LnChan -> LnChan -> Bool

(<=) :: LnChan -> LnChan -> Bool

(>) :: LnChan -> LnChan -> Bool

(>=) :: LnChan -> LnChan -> Bool

max :: LnChan -> LnChan -> LnChan

min :: LnChan -> LnChan -> LnChan

PersistEntity LnChan

Defined in BtcLsp.Storage.Model

Associated Types

type PersistEntityBackend LnChan

data Key LnChan

data EntityField LnChan :: Type -> Type

data Unique LnChan

Methods

keyToValues :: Key LnChan -> [PersistValue]

keyFromValues :: [PersistValue] -> Either Text (Key LnChan)

persistIdField :: EntityField LnChan (Key LnChan)

entityDef :: proxy LnChan -> EntityDef

persistFieldDef :: EntityField LnChan typ -> FieldDef

toPersistFields :: LnChan -> [SomePersistField]

fromPersistValues :: [PersistValue] -> Either Text LnChan

persistUniqueKeys :: LnChan -> [Unique LnChan]

persistUniqueToFieldNames :: Unique LnChan -> NonEmpty (FieldNameHS, FieldNameDB)

persistUniqueToValues :: Unique LnChan -> [PersistValue]

fieldLens :: EntityField LnChan field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity LnChan -> f (Entity LnChan)

keyFromRecordM :: Maybe (LnChan -> Key LnChan)

PersistField LnChan

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: LnChan -> PersistValue

fromPersistValue :: PersistValue -> Either Text LnChan

AtLeastOneUniqueKey LnChan

Defined in BtcLsp.Storage.Model

Methods

requireUniquesP :: LnChan -> NonEmpty (Unique LnChan)

OnlyOneUniqueKey LnChan

Defined in BtcLsp.Storage.Model

Methods

onlyUniqueP :: LnChan -> Unique LnChan

PersistFieldSql LnChan

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy LnChan -> SqlType

ToBackendKey SqlBackend LnChan

Defined in BtcLsp.Storage.Model

Methods

toBackendKey :: Key LnChan -> BackendKey SqlBackend

fromBackendKey :: BackendKey SqlBackend -> Key LnChan

SymbolToField "insertedAt" LnChan UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan UTCTime

SymbolToField "status" LnChan LnChanStatus

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan LnChanStatus

SymbolToField "totalSatoshisReceived" LnChan MSat

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan MSat

SymbolToField "totalSatoshisSent" LnChan MSat

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan MSat

SymbolToField "transactedAt" LnChan UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan UTCTime

SymbolToField "updatedAt" LnChan UTCTime

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan UTCTime

SymbolToField "bak" LnChan (Maybe SingleChanBackupBlob)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan (Maybe SingleChanBackupBlob)

SymbolToField "closingTxId" LnChan (Maybe (TxId 'Closing))

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan (Maybe (TxId 'Closing))

SymbolToField "extId" LnChan (Maybe ChanId)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan (Maybe ChanId)

SymbolToField "fundingTxId" LnChan (TxId 'Funding)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan (TxId 'Funding)

SymbolToField "fundingVout" LnChan (Vout 'Funding)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan (Vout 'Funding)

SymbolToField "id" LnChan (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan (Key LnChan)

SymbolToField "swapIntoLnId" LnChan (Maybe SwapIntoLnId)

Defined in BtcLsp.Storage.Model

Methods

symbolToField :: EntityField LnChan (Maybe SwapIntoLnId)

Out (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

docPrec :: Int -> Key LnChan -> Doc

doc :: Key LnChan -> Doc

docList :: [Key LnChan] -> Doc

FromJSON (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

parseJSON :: Value -> Parser (Key LnChan)

parseJSONList :: Value -> Parser [Key LnChan]

ToJSON (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

toJSON :: Key LnChan -> Value

toEncoding :: Key LnChan -> Encoding

toJSONList :: [Key LnChan] -> Value

toEncodingList :: [Key LnChan] -> Encoding

Generic (Key LnChan)

Defined in BtcLsp.Storage.Model

Associated Types

type Rep (Key LnChan) :: Type -> Type

Methods

from :: Key LnChan -> Rep (Key LnChan) x

to :: Rep (Key LnChan) x -> Key LnChan

Read (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

readsPrec :: Int -> ReadS (Key LnChan)

readList :: ReadS [Key LnChan]

readPrec :: ReadPrec (Key LnChan)

readListPrec :: ReadPrec [Key LnChan]

Show (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

showsPrec :: Int -> Key LnChan -> ShowS

show :: Key LnChan -> String

showList :: [Key LnChan] -> ShowS

Colored (Entity LnChan)

Defined in BtcLsp.Yesod.Data.Colored

Methods

color :: Entity LnChan -> Maybe BootstrapColor

Eq (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

(==) :: Key LnChan -> Key LnChan -> Bool

(/=) :: Key LnChan -> Key LnChan -> Bool

Ord (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

compare :: Key LnChan -> Key LnChan -> Ordering

(<) :: Key LnChan -> Key LnChan -> Bool

(<=) :: Key LnChan -> Key LnChan -> Bool

(>) :: Key LnChan -> Key LnChan -> Bool

(>=) :: Key LnChan -> Key LnChan -> Bool

max :: Key LnChan -> Key LnChan -> Key LnChan

min :: Key LnChan -> Key LnChan -> Key LnChan

FromHttpApiData (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

parseUrlPiece :: Text -> Either Text (Key LnChan)

parseHeader :: ByteString -> Either Text (Key LnChan)

parseQueryParam :: Text -> Either Text (Key LnChan)

ToHttpApiData (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

toUrlPiece :: Key LnChan -> Text

toEncodedUrlPiece :: Key LnChan -> Builder

toHeader :: Key LnChan -> ByteString

toQueryParam :: Key LnChan -> Text

PathPiece (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

fromPathPiece :: Text -> Maybe (Key LnChan)

toPathPiece :: Key LnChan -> Text

PersistField (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

toPersistValue :: Key LnChan -> PersistValue

fromPersistValue :: PersistValue -> Either Text (Key LnChan)

PersistFieldSql (Key LnChan)

Defined in BtcLsp.Storage.Model

Methods

sqlType :: Proxy (Key LnChan) -> SqlType

type Rep LnChan

Defined in BtcLsp.Storage.Model

type Rep LnChan = D1 ('MetaData "LnChan" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'False) (C1 ('MetaCons "LnChan" 'PrefixI 'True) (((S1 ('MetaSel ('Just "lnChanSwapIntoLnId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe SwapIntoLnId)) :*: (S1 ('MetaSel ('Just "lnChanFundingTxId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (TxId 'Funding)) :*: S1 ('MetaSel ('Just "lnChanFundingVout") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Vout 'Funding)))) :*: (S1 ('MetaSel ('Just "lnChanClosingTxId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe (TxId 'Closing))) :*: (S1 ('MetaSel ('Just "lnChanExtId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe ChanId)) :*: S1 ('MetaSel ('Just "lnChanBak") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe SingleChanBackupBlob))))) :*: ((S1 ('MetaSel ('Just "lnChanTotalSatoshisSent") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 MSat) :*: (S1 ('MetaSel ('Just "lnChanTotalSatoshisReceived") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 MSat) :*: S1 ('MetaSel ('Just "lnChanStatus") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 LnChanStatus))) :*: (S1 ('MetaSel ('Just "lnChanInsertedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime) :*: (S1 ('MetaSel ('Just "lnChanUpdatedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "lnChanTransactedAt") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 UTCTime))))))

data EntityField LnChan typ

Defined in BtcLsp.Storage.Model

data EntityField LnChan typ

• = typ ~ LnChanId => LnChanId
• | typ ~ Maybe SwapIntoLnId => LnChanSwapIntoLnId
• | typ ~ TxId 'Funding => LnChanFundingTxId
• | typ ~ Vout 'Funding => LnChanFundingVout
• | typ ~ Maybe (TxId 'Closing) => LnChanClosingTxId
• | typ ~ Maybe ChanId => LnChanExtId
• | typ ~ Maybe SingleChanBackupBlob => LnChanBak
• | typ ~ MSat => LnChanTotalSatoshisSent
• | typ ~ MSat => LnChanTotalSatoshisReceived
• | typ ~ LnChanStatus => LnChanStatus
• | typ ~ UTCTime => LnChanInsertedAt
• | typ ~ UTCTime => LnChanUpdatedAt
• | typ ~ UTCTime => LnChanTransactedAt

newtype Key LnChan

Defined in BtcLsp.Storage.Model

newtype Key LnChan = LnChanKey {

• unLnChanKey :: BackendKey SqlBackend

}

type PersistEntityBackend LnChan

Defined in BtcLsp.Storage.Model

type PersistEntityBackend LnChan = SqlBackend

data Unique LnChan

Defined in BtcLsp.Storage.Model

data Unique LnChan = UniqueLnChan (TxId 'Funding) (Vout 'Funding)

type Rep (Key LnChan)

Defined in BtcLsp.Storage.Model

type Rep (Key LnChan) = D1 ('MetaData "Key" "BtcLsp.Storage.Model" "btc-lsp-0.1.0.0-inplace" 'True) (C1 ('MetaCons "LnChanKey" 'PrefixI 'True) (S1 ('MetaSel ('Just "unLnChanKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (BackendKey SqlBackend))))

type LnChanId = Key LnChan

migrateAuto :: Migration

entityDefListFormigrateAuto :: [EntityDef]