[commit: ghc] master: Kill unused setUnfoldingTemplate (3af1adf)

[git at git.haskell.org]

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

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

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

commit 3af1adf99f1e30a26e540add808d10c2205a2e20
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri May 9 10:55:15 2014 +0100

    Kill unused setUnfoldingTemplate


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

3af1adf99f1e30a26e540add808d10c2205a2e20
 compiler/coreSyn/CoreSyn.lhs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index d107c90..f16e53d 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -54,7 +54,7 @@ module CoreSyn (
         unSaturatedOk, needSaturated, boringCxtOk, boringCxtNotOk,
 	
 	-- ** Predicates and deconstruction on 'Unfolding'
-	unfoldingTemplate, setUnfoldingTemplate, expandUnfolding_maybe,
+	unfoldingTemplate, expandUnfolding_maybe,
 	maybeUnfoldingTemplate, otherCons, 
 	isValueUnfolding, isEvaldUnfolding, isCheapUnfolding,
         isExpandableUnfolding, isConLikeUnfolding, isCompulsoryUnfolding,
@@ -868,9 +868,6 @@ isStableSource InlineRhs          = False
 unfoldingTemplate :: Unfolding -> CoreExpr
 unfoldingTemplate = uf_tmpl
 
-setUnfoldingTemplate :: Unfolding -> CoreExpr -> Unfolding
-setUnfoldingTemplate unf rhs = unf { uf_tmpl = rhs }
-
 -- | Retrieves the template of an unfolding if possible
 maybeUnfoldingTemplate :: Unfolding -> Maybe CoreExpr
 maybeUnfoldingTemplate (CoreUnfolding { uf_tmpl = expr })       = Just expr