testsuite/tests/showIface/PragmaDocs.hs


1
2
3
4
5
6
7
8
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 = ()