diff options
Diffstat (limited to 'compiler/simplCore/SimplMonad.hs')
| -rw-r--r-- | compiler/simplCore/SimplMonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/SimplMonad.hs b/compiler/simplCore/SimplMonad.hs index b8453581de..8835494d64 100644 --- a/compiler/simplCore/SimplMonad.hs +++ b/compiler/simplCore/SimplMonad.hs @@ -19,7 +19,7 @@ module SimplMonad ( plusSimplCount, isZeroSimplCount ) where -import Id ( Id, mkSysLocal ) +import Id ( Id, mkSysLocalOrCoVar ) import Type ( Type ) import FamInstEnv ( FamInstEnv ) import CoreSyn ( RuleEnv(..) ) @@ -176,7 +176,7 @@ getFamEnvs = SM (\st_env us sc -> return (st_fams st_env, us, sc)) newId :: FastString -> Type -> SimplM Id newId fs ty = do uniq <- getUniqueM - return (mkSysLocal fs uniq ty) + return (mkSysLocalOrCoVar fs uniq ty) {- ************************************************************************ |