ref: c5052bb7882174ed1fe11da99dbbe9facb45bcb3 dir: /ghc/Data/Double.hs/
module Data.Double(Double, showDouble, negate) where showDouble :: Double -> [Char] showDouble = show