Always print values using decimal notation

parent 35388436
......@@ -8,7 +8,7 @@ import qualified Bitcoin.Script as BS
import Data.Aeson
import Data.ByteString.Lazy.Char8 (pack)
import Data.List
import Data.Scientific (Scientific)
import Data.Scientific (Scientific, FPFormat(Fixed), formatScientific)
import GHC.Generics
import System.Environment
import System.IO
......@@ -64,7 +64,7 @@ show_tx_vout :: (Tx, VOut) -> String
show_tx_vout (tx, vout) =
intercalate " " [txid tx,
show (n vout),
show (value vout),
formatScientific Fixed Nothing (value vout),
scriptHex vout,
show (BS.scriptOps (script vout))]
......
......@@ -2,7 +2,7 @@
-- documentation, see http://haskell.org/cabal/users-guide/
name: burnt-explorer
version: 0.1.1
version: 1.0.0
synopsis: List OP_RETURN cryptocurrency transaction outputs.
-- description:
license: Apache-2.0
......@@ -18,11 +18,15 @@ build-type: Simple
extra-source-files: README.md
cabal-version: >=1.10
source-repository head
type: git
location: https://gitlab.com/KrzysiekJ/burnt-explorer.git
executable burnt-explorer
main-is: Main.hs
-- other-modules:
-- other-extensions:
build-depends: base >=4.8 && <4.9
build-depends: base >=4.8 && <4.12
, process >=1.6 && <1.7
, aeson >=1.2 && <1.3
, bitcoin-script >=0.9 && <0.10
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment