From 67c4cb4d472f6d998da5d4880064f7e52015c33a Mon Sep 17 00:00:00 2001 From: William Rusnack Date: Fri, 19 Jan 2024 10:53:36 -0500 Subject: [PATCH] removed mappend --- Data/ByteString/Builder/RealFloat.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/ByteString/Builder/RealFloat.hs b/Data/ByteString/Builder/RealFloat.hs index 1d6f89d18..bd970c648 100644 --- a/Data/ByteString/Builder/RealFloat.hs +++ b/Data/ByteString/Builder/RealFloat.hs @@ -253,7 +253,7 @@ formatFloating fmt f = case fmt of FStandard {..} -> specialsOr specials $ std precision where sci eE = BP.primBounded (R.toCharsScientific @a Proxy eE sign m e) () - std precision = printSign f `mappend` showStandard (toWord64 m) e' precision + std precision = printSign f <> showStandard (toWord64 m) e' precision e' = R.toInt e + R.decimalLength m R.FloatingDecimal m e = toD @a mantissa expo (sign, mantissa, expo) = R.breakdown f