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

@@ -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

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,

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,