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