diff options
Diffstat (limited to 'compiler/codeGen/StgCmmEnv.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index 42e4da0e1f..1fdb364b56 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -13,7 +13,7 @@ module StgCmmEnv ( litIdInfo, lneIdInfo, rhsIdInfo, mkRhsInit, idInfoToAmode, - NonVoid(..), isVoidId, nonVoidIds, + NonVoid(..), unsafe_stripNV, isVoidId, nonVoidIds, addBindC, addBindsC, @@ -55,6 +55,10 @@ import Outputable newtype NonVoid a = NonVoid a deriving (Eq, Show) +-- Use with care; if used inappropriately, it could break invariants. +unsafe_stripNV :: NonVoid a -> a +unsafe_stripNV (NonVoid a) = a + instance (Outputable a) => Outputable (NonVoid a) where ppr (NonVoid a) = ppr a |