Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Numeric/ShowGFloat.hs
module Numeric (showGFloat) where import FFFormat import FormatRealFloat showGFloat :: (RealFloat a) => Maybe Int -> a -> ShowS showGFloat d x = showString (formatRealFloat FFGeneric d x)