scriptSig :: Signature -> PublicKey -> Script
scriptSig signature pubKey = Script [Txt der, Txt compressedPubkey]
  where der = BL.toStrict . Put.runPut $ putDerSignature signature
        compressedPubkey = BL.toStrict . BIN.encode
          $ PublicKeyRep Compressed pubKey
          -- TODO: This scriptSig will only be valid for
          -- pay to pub key hash scripts where the compressed pub key is hashed
          -- make sure that I'm making addresses using compressed pubkeys also

-- See https://github.com/bitcoin/bips/blob/master/bip-0066.mediawiki
-- for a description of requiered der format
scriptSig :: Signature -> PublicKey -> Script
scriptSig signature pubKey = Script [Txt der, Txt compressedPubkey]
  where der = BL.toStrict . Put.runPut $ putDerSignature signature
        compressedPubkey = BL.toStrict . BIN.encode
          $ PublicKeyRep Compressed pubKey
          -- TODO: This scriptSig will only be valid for
          -- pay to pub key hash scripts where the compressed pub key is hashed
          -- make sure that I'm making addresses using compressed pubkeys also

-- See https://github.com/bitcoin/bips/blob/master/bip-0066.mediawiki
-- for a description of requiered der format
scriptSig signature pubKey = Script [Txt der, Txt compressedPubkey]
  where der = BL.toStrict . Put.runPut $ putDerSignature signature
        compressedPubkey = BL.toStrict . BIN.encode
          $ PublicKeyRep Compressed pubKey
          -- TODO: This scriptSig will only be valid for
          -- pay to pub key hash scripts where the compressed pub key is hashed
          -- make sure that I'm making addresses using compressed pubkeys also

-- See https://github.com/bitcoin/bips/blob/master/bip-0066.mediawiki
-- for a description of requiered der format