[commit: ghc] wip/oneShot: Preserve oneShotInfo in CoreTidy (81af069)

[git at git.haskell.org]

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

On branch  : wip/oneShot
Link       : http://ghc.haskell.org/trac/ghc/changeset/81af0699037a7fa51a3dbf937084722210d8311d/ghc

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

commit 81af0699037a7fa51a3dbf937084722210d8311d
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Oct 28 15:25:20 2014 +0100

    Preserve oneShotInfo in CoreTidy


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

81af0699037a7fa51a3dbf937084722210d8311d
 compiler/coreSyn/CoreTidy.lhs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/coreSyn/CoreTidy.lhs b/compiler/coreSyn/CoreTidy.lhs
index 56da494..563e965 100644
--- a/compiler/coreSyn/CoreTidy.lhs
+++ b/compiler/coreSyn/CoreTidy.lhs
@@ -153,6 +153,7 @@ tidyIdBndr env@(tidy_env, var_env) id
         -- Note [Tidy IdInfo]
         new_info = vanillaIdInfo `setOccInfo` occInfo old_info
                                  `setUnfoldingInfo` new_unf
+                                 `setOneShotInfo` oneShotInfo old_info
         old_info = idInfo id
         old_unf  = unfoldingInfo old_info
         new_unf | isEvaldUnfolding old_unf = evaldUnfolding