Safe Haskell | None |
---|---|
Language | Haskell2010 |
See https://github.com/fiatjaf/lnurl-rfc/blob/master/lnurl-withdraw.md.
Workflow
LN WALLET
makesGET
requestLN SERVICE
responds withResponse
SuccessResponse
.LN WALLET
get withdrawal amount from user.LN WALLET
prepare and makeGET
request usinggetCallbackURL
.LN SERVICE
responds withAckResponse
.
Synopsis
- getCallbackURL :: SuccessResponse -> Text -> Maybe URI -> URI
- data Response a
- = Success a
- | ErrorResponse Text
- data SuccessResponse = SuccessResponse {}
- data AckResponse
Client
:: SuccessResponse | |
-> Text | |
-> Maybe URI | URL where |
-> URI |
Use the first response to build the callback url
Types
data SuccessResponse Source #
The initial GET request responds with Response
SuccessResponse
SuccessResponse | |
|
Instances
Eq SuccessResponse Source # | |
Defined in LnUrl.Withdraw (==) :: SuccessResponse -> SuccessResponse -> Bool # (/=) :: SuccessResponse -> SuccessResponse -> Bool # | |
Show SuccessResponse Source # | |
Defined in LnUrl.Withdraw showsPrec :: Int -> SuccessResponse -> ShowS # show :: SuccessResponse -> String # showList :: [SuccessResponse] -> ShowS # | |
ToJSON SuccessResponse Source # | |
Defined in LnUrl.Withdraw toJSON :: SuccessResponse -> Value # toEncoding :: SuccessResponse -> Encoding # toJSONList :: [SuccessResponse] -> Value # toEncodingList :: [SuccessResponse] -> Encoding # | |
FromJSON SuccessResponse Source # | |
Defined in LnUrl.Withdraw parseJSON :: Value -> Parser SuccessResponse # parseJSONList :: Value -> Parser [SuccessResponse] # |
data AckResponse Source #
Instances
Eq AckResponse Source # | |
Defined in LnUrl (==) :: AckResponse -> AckResponse -> Bool # (/=) :: AckResponse -> AckResponse -> Bool # | |
Show AckResponse Source # | |
Defined in LnUrl showsPrec :: Int -> AckResponse -> ShowS # show :: AckResponse -> String # showList :: [AckResponse] -> ShowS # | |
ToJSON AckResponse Source # | |
Defined in LnUrl toJSON :: AckResponse -> Value # toEncoding :: AckResponse -> Encoding # toJSONList :: [AckResponse] -> Value # toEncodingList :: [AckResponse] -> Encoding # | |
FromJSON AckResponse Source # | |
Defined in LnUrl parseJSON :: Value -> Parser AckResponse # parseJSONList :: Value -> Parser [AckResponse] # |