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