getInput :: Get TxInput
getInput = do
  outPoint <- get
  VarInt scriptLength <- get
  script <- getScript (fromIntegral scriptLength)
  sequence' <- get
  return TxInput
    { _utxo = outPoint
    , _signatureScript = script
    , _sequence = sequence' }
getInput :: Get TxInput
getInput = do
  outPoint <- get
  VarInt scriptLength <- get
  script <- getScript (fromIntegral scriptLength)
  sequence' <- get
  return TxInput
    { _utxo = outPoint
    , _signatureScript = script
    , _sequence = sequence' }
getInput = do
  outPoint <- get
  VarInt scriptLength <- get
  script <- getScript (fromIntegral scriptLength)
  sequence' <- get
  return TxInput
    { _utxo = outPoint
    , _signatureScript = script
    , _sequence = sequence' }