diff options
Diffstat (limited to 'compiler/hsSyn/HsUtils.hs')
| -rw-r--r-- | compiler/hsSyn/HsUtils.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/hsSyn/HsUtils.hs b/compiler/hsSyn/HsUtils.hs index 5e5127295d..07edf0d333 100644 --- a/compiler/hsSyn/HsUtils.hs +++ b/compiler/hsSyn/HsUtils.hs @@ -32,7 +32,7 @@ module HsUtils( nlHsIntLit, nlHsVarApps, nlHsDo, nlHsOpApp, nlHsLam, nlHsPar, nlHsIf, nlHsCase, nlList, mkLHsTupleExpr, mkLHsVarTuple, missingTupArg, - toLHsSigWcType, + typeToLHsType, -- * Constructing general big tuples -- $big_tuples @@ -597,14 +597,14 @@ mkClassOpSigs sigs fiddle (L loc (TypeSig nms ty)) = L loc (ClassOpSig False nms (dropWildCards ty)) fiddle sig = sig -toLHsSigWcType :: Type -> LHsSigWcType RdrName +typeToLHsType :: Type -> LHsType RdrName -- ^ Converting a Type to an HsType RdrName -- This is needed to implement GeneralizedNewtypeDeriving. -- -- Note that we use 'getRdrName' extensively, which -- generates Exact RdrNames rather than strings. -toLHsSigWcType ty - = mkLHsSigWcType (go ty) +typeToLHsType ty + = go ty where go :: Type -> LHsType RdrName go ty@(FunTy arg _) |