la_ancapo/stellar-veritas
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

show hash memos as hexadecimal

Browse source
This commit is contained in:
La Ancapo 2026-02-01 03:45:54 +01:00
parent 4fbc4e4c70
commit 1920e6cb00
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Pretty.hs
View file

@ -1,4 +1,3 @@
{-# LANGUAGE OverloadedStrings, Strict #-} {-# LANGUAGE OverloadedStrings, Strict #-}
module Pretty where module Pretty where
@ -13,7 +12,9 @@ import qualified Data.Vector as V
import Network.ONCRPC.XDR.Array import Network.ONCRPC.XDR.Array
import Network.Stellar.Keypair (encodeKey, EncodingVersion(..)) import Network.Stellar.Keypair (encodeKey, EncodingVersion(..))
import Network.Stellar.TransactionXdr import Network.Stellar.TransactionXdr
import Numeric
b16 = T.pack . concatMap (\x -> (if x < 16 then "0" else "") ++ showHex x "") . B.unpack . unLengthArray
b32 = encodeBase32 . unLengthArray b32 = encodeBase32 . unLengthArray
utf8s = T.decodeUtf8Lenient . unLengthArray utf8s = T.decodeUtf8Lenient . unLengthArray
prettyKey x = encodeKey EncodingAccount $ unLengthArray x prettyKey x = encodeKey EncodingAccount $ unLengthArray x
@ -54,7 +55,7 @@ instance Pretty Transaction where
instance Pretty Memo where instance Pretty Memo where
pretty Memo'MEMO_NONE = "" pretty Memo'MEMO_NONE = ""
pretty (Memo'MEMO_ID x) = T.show x pretty (Memo'MEMO_ID x) = T.show x
pretty (Memo'MEMO_HASH x) = T.show x pretty (Memo'MEMO_HASH x) = b16 x
pretty (Memo'MEMO_RETURN x) = T.show x pretty (Memo'MEMO_RETURN x) = T.show x
pretty (Memo'MEMO_TEXT t) = utf8s t pretty (Memo'MEMO_TEXT t) = utf8s t