From cec4091b0cf66dd7013960f64ac079ce917079a7 Mon Sep 17 00:00:00 2001
From: La Ancapo <>
Date: Tue, 17 Feb 2026 21:46:28 +0100
Subject: [PATCH 1/2] list other-modules explicitly

so they get rebuilt on changes
no better solution yet
---
 src/stellar-veritas.cabal | 3 ++-
 stellar-veritas.cabal     | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/stellar-veritas.cabal b/src/stellar-veritas.cabal
index 1e56f30..578a1d1 100644
--- a/src/stellar-veritas.cabal
+++ b/src/stellar-veritas.cabal
@@ -14,7 +14,8 @@ tested-with:         GHC == 9.12.3
 executable stellar-veritas
   main-is:             Main.hs
   ghc-options:         -W -Wcompat -Wno-missing-home-modules -fno-warn-tabs -rtsopts=ignoreAll -optl-Wl,-s
-  other-modules:
+  other-modules:       Encryption
+                       Pretty
   build-depends:       base >= 4.9 && < 5,
                        text >= 1.2.4.1 && < 2.2,
                        bytestring ^>= 0.12,
diff --git a/stellar-veritas.cabal b/stellar-veritas.cabal
index 6e2d44e..b85ceda 100644
--- a/stellar-veritas.cabal
+++ b/stellar-veritas.cabal
@@ -20,7 +20,8 @@ executable stellar-veritas
   main-is:             Main.hs
   CPP-options:         -DWITH_BYTESTRING_SUPPORT
   ghc-options:         -W -Wcompat -Wno-missing-home-modules -fno-warn-tabs -rtsopts=ignoreAll -optl-Wl,-s
-  other-modules:
+  other-modules:       Encryption
+                       Pretty
   build-depends:       base >= 4.9 && < 5,
                        text >= 1.2.4.1 && < 2.2,
                        bytestring ^>= 0.12,

From 5072667e167c7aa0efebc581a3e42a20578d9453 Mon Sep 17 00:00:00 2001
From: La Ancapo <>
Date: Tue, 17 Feb 2026 21:47:39 +0100
Subject: [PATCH 2/2] fixed buy/sell offer price inversion

happened due to confusing description in https://developers.stellar.org/docs/learn/fundamentals/transactions/list-of-operations#manage-buy-offer
and similar errors in other software, notably stellar.expert
---
 src/Pretty.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Pretty.hs b/src/Pretty.hs
index 637e149..58639d9 100644
--- a/src/Pretty.hs
+++ b/src/Pretty.hs
@@ -143,10 +143,10 @@ instance Pretty ManageDataOp where
   pretty (ManageDataOp name (Just value)) = T.concat ["Data ", utf8s name, " = ", utf8s value]
 
 instance Pretty ManageBuyOfferOp where
-  pretty (ManageBuyOfferOp sellass buyass buyamount price offerid) = T.concat ["Buy ", prettyAmount buyamount, " ", pretty buyass, " for ", pretty sellass, " price ", pretty price, " ", prettyAssetName buyass, "/", prettyAssetName sellass, if offerid == 0 then " (new offer)" else T.concat [" (update offer ", T.show offerid, ")"]]
+  pretty (ManageBuyOfferOp sellass buyass buyamount price offerid) = T.concat ["Buy ", prettyAmount buyamount, " ", pretty buyass, " for ", pretty sellass, " price ", pretty price, " ", prettyAssetName sellass, "/", prettyAssetName buyass, if offerid == 0 then " (new offer)" else T.concat [" (update offer ", T.show offerid, ")"]]
 
 instance Pretty ManageSellOfferOp where
-  pretty (ManageSellOfferOp sellass buyass sellamount price offerid) = T.concat ["Sell ", prettyAmount sellamount, " ", pretty sellass, " for ", pretty buyass, " price ", pretty price, " ", prettyAssetName sellass, "/", prettyAssetName buyass, if offerid == 0 then " (new offer)" else T.concat [" (update offer ", T.show offerid, ")"]]
+  pretty (ManageSellOfferOp sellass buyass sellamount price offerid) = T.concat ["Sell ", prettyAmount sellamount, " ", pretty sellass, " for ", pretty buyass, " price ", pretty price, " ", prettyAssetName buyass, "/", prettyAssetName sellass, if offerid == 0 then " (new offer)" else T.concat [" (update offer ", T.show offerid, ")"]]
 
 instance Pretty Price where
   pretty (Price numerator denominator) = T.show $ fromIntegral numerator / fromIntegral denominator