diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-05-09 10:55:15 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-08-28 11:14:06 +0100 |
| commit | 3af1adf99f1e30a26e540add808d10c2205a2e20 (patch) | |
| tree | b11044f4fe9c55530aec6359738efef19ebeae63 /compiler/coreSyn | |
| parent | 6e0f6ededff6018a88dd390590a09f79842ccfa5 (diff) | |
| download | haskell-3af1adf99f1e30a26e540add808d10c2205a2e20.tar.gz | |
Kill unused setUnfoldingTemplate
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreSyn.lhs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs index d107c900fb..f16e53d6ca 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 |