mkRealConstr :: (Real a, Show a) => DataType -> a -> Constr
mkRealConstr dt f = case datarep dt of
                    FloatRep -> mkPrimCon dt (show f) (FloatConstr (toRational f))
                    _ -> error "Data.Data.mkRealConstr"

-- | This function is now deprecated. Please use 'mkCharConstr' instead.

mkRealConstr :: (Real a, Show a) => DataType -> a -> Constr
mkRealConstr dt f = case datarep dt of
                    FloatRep -> mkPrimCon dt (show f) (FloatConstr (toRational f))
                    _ -> error "Data.Data.mkRealConstr"

-- | This function is now deprecated. Please use 'mkCharConstr' instead.

mkRealConstr dt f = case datarep dt of
                    FloatRep -> mkPrimCon dt (show f) (FloatConstr (toRational f))
                    _ -> error "Data.Data.mkRealConstr"

-- | This function is now deprecated. Please use 'mkCharConstr' instead.
