mkIntegralConstr :: (Integral a, Show a) => DataType -> a -> Constr
mkIntegralConstr dt i = case datarep dt of
                  IntRep -> mkPrimCon dt (show i) (IntConstr (toInteger  i))
                  _ -> error "Data.Data.mkIntegralConstr"

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

mkIntegralConstr :: (Integral a, Show a) => DataType -> a -> Constr
mkIntegralConstr dt i = case datarep dt of
                  IntRep -> mkPrimCon dt (show i) (IntConstr (toInteger  i))
                  _ -> error "Data.Data.mkIntegralConstr"

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

mkIntegralConstr dt i = case datarep dt of
                  IntRep -> mkPrimCon dt (show i) (IntConstr (toInteger  i))
                  _ -> error "Data.Data.mkIntegralConstr"

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