diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-10-05 16:14:59 -0400 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2016-10-06 17:48:30 -0400 |
| commit | 57a207ca53154ad78863a43f1050a3a72e418d93 (patch) | |
| tree | cd94823e7e7838ae7ecf26815b24165263e10df5 | |
| parent | a2bedb5c67b8d0d20dfb22fdeac3fcd07fe5452e (diff) | |
| download | haskell-57a207ca53154ad78863a43f1050a3a72e418d93.tar.gz | |
Remove dead code “mkHsConApp”
Differential Revision: https://phabricator.haskell.org/D2574
| -rw-r--r-- | compiler/hsSyn/HsUtils.hs | 9 | ||||
| -rw-r--r-- | compiler/typecheck/TcHsSyn.hs | 2 |
2 files changed, 2 insertions, 9 deletions
diff --git a/compiler/hsSyn/HsUtils.hs b/compiler/hsSyn/HsUtils.hs index 07edf0d333..903ff380ee 100644 --- a/compiler/hsSyn/HsUtils.hs +++ b/compiler/hsSyn/HsUtils.hs @@ -20,7 +20,7 @@ which deal with the instantiated versions are located elsewhere: module HsUtils( -- Terms - mkHsPar, mkHsApp, mkHsAppType, mkHsAppTypeOut, mkHsConApp, mkHsCaseAlt, + mkHsPar, mkHsApp, mkHsAppType, mkHsAppTypeOut, mkHsCaseAlt, mkSimpleMatch, unguardedGRHSs, unguardedRHS, mkMatchGroup, mkMatch, mkHsLam, mkHsIf, mkHsWrap, mkLHsWrap, mkHsWrapCo, mkHsWrapCoR, mkLHsWrapCo, @@ -183,13 +183,6 @@ mkHsLams :: [TyVar] -> [EvVar] -> LHsExpr Id -> LHsExpr Id mkHsLams tyvars dicts expr = mkLHsWrap (mkWpTyLams tyvars <.> mkWpLams dicts) expr -mkHsConApp :: DataCon -> [Type] -> [HsExpr Id] -> LHsExpr Id --- Used for constructing dictionary terms etc, so no locations -mkHsConApp data_con tys args - = foldl mk_app (nlHsTyApp (dataConWrapId data_con) tys) args - where - mk_app f a = noLoc (HsApp f (noLoc a)) - -- |A simple case alternative with a single pattern, no binds, no guards; -- pre-typechecking mkHsCaseAlt :: LPat id -> (Located (body id)) -> LMatch id (Located (body id)) diff --git a/compiler/typecheck/TcHsSyn.hs b/compiler/typecheck/TcHsSyn.hs index 458f96538d..b444385aa4 100644 --- a/compiler/typecheck/TcHsSyn.hs +++ b/compiler/typecheck/TcHsSyn.hs @@ -12,7 +12,7 @@ checker. {-# LANGUAGE CPP, TupleSections #-} module TcHsSyn ( - mkHsConApp, mkHsDictLet, mkHsApp, + mkHsDictLet, mkHsApp, hsLitType, hsLPatType, hsPatType, mkHsAppTy, mkHsCaseAlt, nlHsIntLit, |