lib: Refactor to eliminate use of printf.
This commit is contained in:
parent
e80bb37b1c
commit
c827cbcc3e
@ -49,7 +49,6 @@ import Data.Time.Calendar
|
|||||||
import Data.Time.LocalTime
|
import Data.Time.LocalTime
|
||||||
import Data.Word (Word8)
|
import Data.Word (Word8)
|
||||||
import System.Time (ClockTime(..))
|
import System.Time (ClockTime(..))
|
||||||
import Text.Printf
|
|
||||||
|
|
||||||
import Hledger.Utils.Regex
|
import Hledger.Utils.Regex
|
||||||
|
|
||||||
@ -196,13 +195,15 @@ data AmountStyle = AmountStyle {
|
|||||||
} deriving (Eq,Ord,Read,Generic)
|
} deriving (Eq,Ord,Read,Generic)
|
||||||
|
|
||||||
instance Show AmountStyle where
|
instance Show AmountStyle where
|
||||||
show AmountStyle{..} =
|
show AmountStyle{..} = concat
|
||||||
printf "AmountStylePP \"%s %s %s %s %s..\""
|
[ "AmountStylePP \""
|
||||||
(show ascommodityside)
|
, show ascommodityside
|
||||||
(show ascommodityspaced)
|
, show ascommodityspaced
|
||||||
(show asprecision)
|
, show asprecision
|
||||||
(show asdecimalpoint)
|
, show asdecimalpoint
|
||||||
(show asdigitgroups)
|
, show asdigitgroups
|
||||||
|
, "..\""
|
||||||
|
]
|
||||||
|
|
||||||
-- | The "display precision" for a hledger amount, by which we mean
|
-- | The "display precision" for a hledger amount, by which we mean
|
||||||
-- the number of decimal digits to display to the right of the decimal mark.
|
-- the number of decimal digits to display to the right of the decimal mark.
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user