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

Compare commits

base: la_ancapo:5072667e167c7aa0efebc581a3e42a20578d9453
Branches Tags
la_ancapo:master
..
compare: la_ancapo:49b421f7f5540f3b620b23b1e23a207a701a85f5
Branches Tags
la_ancapo:master

No commits in common. "5072667e167c7aa0efebc581a3e42a20578d9453" and "49b421f7f5540f3b620b23b1e23a207a701a85f5" have entirely different histories.
5072667e16 ... 49b421f7f5

3 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Pretty.hs
View file

@ -143,10 +143,10 @@ instance Pretty ManageDataOp where
pretty (ManageDataOp name (Just value)) = T.concat ["Data ", utf8s name, " = ", utf8s value] pretty (ManageDataOp name (Just value)) = T.concat ["Data ", utf8s name, " = ", utf8s value]
instance Pretty ManageBuyOfferOp where 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 sellass, "/", prettyAssetName buyass, 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 buyass, "/", prettyAssetName sellass, if offerid == 0 then " (new offer)" else T.concat [" (update offer ", T.show offerid, ")"]]
instance Pretty ManageSellOfferOp where 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 buyass, "/", prettyAssetName sellass, 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 sellass, "/", prettyAssetName buyass, if offerid == 0 then " (new offer)" else T.concat [" (update offer ", T.show offerid, ")"]]
instance Pretty Price where instance Pretty Price where
pretty (Price numerator denominator) = T.show $ fromIntegral numerator / fromIntegral denominator pretty (Price numerator denominator) = T.show $ fromIntegral numerator / fromIntegral denominator

3
src/stellar-veritas.cabal
View file

@ -14,8 +14,7 @@ tested-with: GHC == 9.12.3
executable stellar-veritas executable stellar-veritas
main-is: Main.hs main-is: Main.hs
ghc-options: -W -Wcompat -Wno-missing-home-modules -fno-warn-tabs -rtsopts=ignoreAll -optl-Wl,-s ghc-options: -W -Wcompat -Wno-missing-home-modules -fno-warn-tabs -rtsopts=ignoreAll -optl-Wl,-s
other-modules: Encryption other-modules:
Pretty
build-depends: base >= 4.9 && < 5, build-depends: base >= 4.9 && < 5,
text >= 1.2.4.1 && < 2.2, text >= 1.2.4.1 && < 2.2,
bytestring ^>= 0.12, bytestring ^>= 0.12,

3
stellar-veritas.cabal
View file

@ -20,8 +20,7 @@ executable stellar-veritas
main-is: Main.hs main-is: Main.hs
CPP-options: -DWITH_BYTESTRING_SUPPORT CPP-options: -DWITH_BYTESTRING_SUPPORT
ghc-options: -W -Wcompat -Wno-missing-home-modules -fno-warn-tabs -rtsopts=ignoreAll -optl-Wl,-s ghc-options: -W -Wcompat -Wno-missing-home-modules -fno-warn-tabs -rtsopts=ignoreAll -optl-Wl,-s
other-modules: Encryption other-modules:
Pretty
build-depends: base >= 4.9 && < 5, build-depends: base >= 4.9 && < 5,
text >= 1.2.4.1 && < 2.2, text >= 1.2.4.1 && < 2.2,
bytestring ^>= 0.12, bytestring ^>= 0.12,