summaryrefslogtreecommitdiff
path: root/testsuite/tests/showIface/PragmaDocs.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/showIface/PragmaDocs.hs')
-rw-r--r--testsuite/tests/showIface/PragmaDocs.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/showIface/PragmaDocs.hs b/testsuite/tests/showIface/PragmaDocs.hs
new file mode 100644
index 0000000000..3e7a068d71
--- /dev/null
+++ b/testsuite/tests/showIface/PragmaDocs.hs
@@ -0,0 +1,9 @@
+module PragmaDocs where
+
+{-# DEPRECATED contains "Use `elem` instead." #-}
+contains :: (Eq a, Foldable f) => f a -> a -> Bool
+contains = flip elem
+
+{-# warning x, y "These are useless" #-}
+x = ()
+y = ()