putTxValue :: Value -> Put
putTxValue (Satoshis i) =
  Put.putWord64le . fromIntegral $ i
putTxValue :: Value -> Put
putTxValue (Satoshis i) =
  Put.putWord64le . fromIntegral $ i
putTxValue (Satoshis i) =
  Put.putWord64le . fromIntegral $ i