diff options
| author | Richard Eisenberg <rae@richarde.dev> | 2020-01-29 09:53:19 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-08 10:16:33 -0500 |
| commit | 309f8cfdad9cf81f5ee6003821810ea1205ae1d5 (patch) | |
| tree | c31342f085ab1d15502a9032186adc37c18e6943 /compiler | |
| parent | 588acb99bc3cb377ceb76447dd60656b4a11de5a (diff) | |
| download | haskell-309f8cfdad9cf81f5ee6003821810ea1205ae1d5.tar.gz | |
Remove unnecessary parentheses
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/Hs/Lit.hs | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/compiler/GHC/Hs/Lit.hs b/compiler/GHC/Hs/Lit.hs index d6c948edac..c92f13392d 100644 --- a/compiler/GHC/Hs/Lit.hs +++ b/compiler/GHC/Hs/Lit.hs @@ -154,20 +154,20 @@ overLitType (XOverLit nec) = noExtCon nec -- | Convert a literal from one index type to another, updating the annotations -- according to the relevant 'Convertable' instance convertLit :: (ConvertIdX a b) => HsLit a -> HsLit b -convertLit (HsChar a x) = (HsChar (convert a) x) -convertLit (HsCharPrim a x) = (HsCharPrim (convert a) x) -convertLit (HsString a x) = (HsString (convert a) x) -convertLit (HsStringPrim a x) = (HsStringPrim (convert a) x) -convertLit (HsInt a x) = (HsInt (convert a) x) -convertLit (HsIntPrim a x) = (HsIntPrim (convert a) x) -convertLit (HsWordPrim a x) = (HsWordPrim (convert a) x) -convertLit (HsInt64Prim a x) = (HsInt64Prim (convert a) x) -convertLit (HsWord64Prim a x) = (HsWord64Prim (convert a) x) -convertLit (HsInteger a x b) = (HsInteger (convert a) x b) -convertLit (HsRat a x b) = (HsRat (convert a) x b) -convertLit (HsFloatPrim a x) = (HsFloatPrim (convert a) x) -convertLit (HsDoublePrim a x) = (HsDoublePrim (convert a) x) -convertLit (XLit a) = (XLit (convert a)) +convertLit (HsChar a x) = HsChar (convert a) x +convertLit (HsCharPrim a x) = HsCharPrim (convert a) x +convertLit (HsString a x) = HsString (convert a) x +convertLit (HsStringPrim a x) = HsStringPrim (convert a) x +convertLit (HsInt a x) = HsInt (convert a) x +convertLit (HsIntPrim a x) = HsIntPrim (convert a) x +convertLit (HsWordPrim a x) = HsWordPrim (convert a) x +convertLit (HsInt64Prim a x) = HsInt64Prim (convert a) x +convertLit (HsWord64Prim a x) = HsWord64Prim (convert a) x +convertLit (HsInteger a x b) = HsInteger (convert a) x b +convertLit (HsRat a x b) = HsRat (convert a) x b +convertLit (HsFloatPrim a x) = HsFloatPrim (convert a) x +convertLit (HsDoublePrim a x) = HsDoublePrim (convert a) x +convertLit (XLit a) = XLit (convert a) {- Note [ol_rebindable] |