Skip to content
Permalink
Browse files

add unused tags

  • Loading branch information...
Anviking committed Jun 16, 2019
1 parent 1291b39 commit 4a096d0a52309b1f7203cf94f63faa6ee2539707
Showing with 11 additions and 0 deletions.
  1. +11 −0 lib/jormungandr/src/Cardano/Wallet/Jormungandr/Transaction.hs
@@ -69,6 +69,17 @@ newtype WitnessData = WitnessData ByteString
witnessUtxoData :: Hash "Block0Hash" -> Hash "Tx" -> WitnessData
witnessUtxoData (Hash block0) (Hash tx) = WitnessData (block0 <> tx)

--witnessTagOldUtxo, witnessTagUtxo, witnessTagAccount, witnessTagMultisig :: Int
--witnessTagOldUtxo = 0
--witnessTagUtxo = 1
--witnessTagAccount = 2
--witnessTagMultisig = 3

--------------------------------------------------------------------------------
-- Signing
----------------


mkWitness
:: WitnessData
-> (Key 'AddressK XPrv, Passphrase "encryption")

0 comments on commit 4a096d0

Please sign in to comment.
You can’t perform that action at this time.