testsuite: Add testcase for #16689

dbf9ca20 · Ben Gamari · Marge Bot · da33f2bb · dbf9ca20 · dbf9ca20
Commit dbf9ca20 authored 5 years ago by Ben Gamari Committed by Marge Bot 5 years ago
--- a/testsuite/tests/safeHaskell/safeInfered/T16689.hs
+++ b/testsuite/tests/safeHaskell/safeInfered/T16689.hs
+{-# LANGUAGE Safe #-}
+
+main = return ()
+
--- a/testsuite/tests/safeHaskell/safeInfered/all.T
+++ b/testsuite/tests/safeHaskell/safeInfered/all.T
@@ -64,3 +64,5 @@ test('UnsafeWarn07', normal, compile, [''])
 # Chck -fwa-safe works
 test('SafeWarn01', normal, compile, [''])

+test('T16689', normal, compile, ['-Wsafe'])
+