[commit: ghc] master: Delete two unused functions (3e44562)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/3e44562ae18526ae0df6370078321dd19b00616f/ghc

>---------------------------------------------------------------

commit 3e44562ae18526ae0df6370078321dd19b00616f
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Oct 9 13:18:13 2017 +0100

    Delete two unused functions
    
    Delete unused functions
           pprArrowChain
           pprPrefixApp
    
    from TyCoRep


>---------------------------------------------------------------

3e44562ae18526ae0df6370078321dd19b00616f
 compiler/types/TyCoRep.hs | 12 ------------
 compiler/types/Type.hs    |  2 +-
 2 files changed, 1 insertion(+), 13 deletions(-)

diff --git a/compiler/types/TyCoRep.hs b/compiler/types/TyCoRep.hs
index 07470e6..5e32bb1 100644
--- a/compiler/types/TyCoRep.hs
+++ b/compiler/types/TyCoRep.hs
@@ -61,7 +61,6 @@ module TyCoRep (
         pprThetaArrowTy, pprClassPred,
         pprKind, pprParendKind, pprTyLit,
         TyPrec(..), maybeParen,
-        pprPrefixApp, pprArrowChain,
         pprDataCons, ppSuggestExplicitKinds,
 
         pprCo, pprParendCo,
@@ -2665,17 +2664,6 @@ pprTypeApp tc tys
     -- TODO: toIfaceTcArgs seems rather wasteful here
 
 ------------------
-
-pprPrefixApp :: TyPrec -> SDoc -> [SDoc] -> SDoc
-pprPrefixApp = pprIfacePrefixApp
-
-----------------
-pprArrowChain :: TyPrec -> [SDoc] -> SDoc
--- pprArrowChain p [a,b,c]  generates   a -> b -> c
-pprArrowChain _ []         = empty
-pprArrowChain p (arg:args) = maybeParen p FunPrec $
-                             sep [arg, sep (map (arrow <+>) args)]
-
 ppSuggestExplicitKinds :: SDoc
 -- Print a helpful suggstion about -fprint-explicit-kinds,
 -- if it is not already on
diff --git a/compiler/types/Type.hs b/compiler/types/Type.hs
index d28f18c..6eaacdf 100644
--- a/compiler/types/Type.hs
+++ b/compiler/types/Type.hs
@@ -189,7 +189,7 @@ module Type (
         pprTheta, pprThetaArrowTy, pprClassPred,
         pprKind, pprParendKind, pprSourceTyCon,
         TyPrec(..), maybeParen,
-        pprTyVar, pprTyVars, pprPrefixApp, pprArrowChain,
+        pprTyVar, pprTyVars,
 
         -- * Tidying type related things up for printing
         tidyType,      tidyTypes,