Commit a1f34d37 authored by Krzysztof Gogolewski's avatar Krzysztof Gogolewski Committed by Marge Bot

Add missing entry to freeNamesItem (#18369)

parent 7ad4085c
Pipeline #21430 failed with stages
in 1087 minutes and 49 seconds
......@@ -1712,8 +1712,9 @@ freeNamesIfIdInfo :: IfaceIdInfo -> NameSet
freeNamesIfIdInfo = fnList freeNamesItem
freeNamesItem :: IfaceInfoItem -> NameSet
freeNamesItem (HsUnfold _ u) = freeNamesIfUnfold u
freeNamesItem _ = emptyNameSet
freeNamesItem (HsUnfold _ u) = freeNamesIfUnfold u
freeNamesItem (HsLFInfo (IfLFCon n)) = unitNameSet n
freeNamesItem _ = emptyNameSet
freeNamesIfUnfold :: IfaceUnfolding -> NameSet
freeNamesIfUnfold (IfCoreUnfold _ e) = freeNamesIfExpr e
......
module T18369 where
import Unsafe.Coerce
import GHC.Exts (Any)
{-# NOINLINE emptyRecord #-}
emptyRecord :: Any
emptyRecord = unsafeCoerce EmptyElement
data TombStone = EmptyElement
......@@ -281,3 +281,4 @@ test('T16737',
test('T17143', exit_code(1), run_command, ['{compiler} T17143.hs -S -fno-code'])
test('T17786', unless(opsys('mingw32'), skip), makefile_test, [])
test('T18369', normal, compile, ['-O'])
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment