Correct off-by-one error in bounds checking when converting
NoRepIntegers into the real thing. Not a bug, just a cleanup.
litToRep (NoRepInteger i integer_ty)
= returnPM (integer_ty, rhs)
where
- rhs | i > tARGET_MIN_INT && -- Small enough, so start from an Int
- i < tARGET_MAX_INT
+ rhs | i >= tARGET_MIN_INT && -- Small enough, so start from an Int
+ i <= tARGET_MAX_INT
= Con (DataCon smallIntegerDataCon) [Con (Literal (mkMachInt i)) []]
| otherwise -- Big, so start from a string