Skip to content

Commit 49138d7

Browse files
committed
Workaround fix for inspection test broken by GHC 9.14
1 parent 09bc7cf commit 49138d7

1 file changed

Lines changed: 3 additions & 1 deletion

File tree

tests/Tests/Properties/LowLevel.hs

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -160,7 +160,9 @@ testLowLevel =
160160
testCase "t_literal_length2" t_literal_length2,
161161
testCase "t_literal_surrogates" t_literal_surrogates
162162
#ifdef MIN_VERSION_tasty_inspection_testing
163-
, $(inspectObligations
163+
-- Hack to force GHC to keep the binding around until this is fixed: https://gitlab.haskell.org/ghc/ghc/-/issues/26436
164+
, let _unused = 't_literal_foo in
165+
$(inspectObligations
164166
[ (`hasNoTypes` [''Char, ''[]])
165167
, (`doesNotUseAnyOf` ['T.pack, 'S.unstream, 'T.map, 'safe, 'S.streamList])
166168
, (`doesNotUseAnyOf` ['GHC.unpackCString#, 'GHC.unpackCStringUtf8#])

0 commit comments

Comments
 (0)