-- Take short cuts only if the literal is not using rebindable syntax
| isIntTy ty = mk_con_pat intDataCon (HsIntPrim int_val)
| isWordTy ty = mk_con_pat wordDataCon (HsWordPrim int_val)
-- Take short cuts only if the literal is not using rebindable syntax
| isIntTy ty = mk_con_pat intDataCon (HsIntPrim int_val)
| isWordTy ty = mk_con_pat wordDataCon (HsWordPrim int_val)