removed mappend

haskell · Jan 19, 2024 · 67c4cb4 · 67c4cb4
1 parent 8479796
commit 67c4cb4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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