1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{-# DEPRECATED test, foo "This is a deprecation" #-}
{-# WARNING test "This is a warning" #-}
test :: IO ()
test = pure ()
bar = 3
{-# DEPRECATED bar "Bar is deprecated" #-}
{-# DEPRECATED data baz "Baz is also deprecated" #-}
baz = 5
data Number = Number Dobule
{-# DEPRECATED type Number "Use Scientific instead." #-}
head (a : _) = a
{-# WARNING in "x-partial" head "This function is partial..." #-}
instance {-# DEPRECATED "Don't use" #-} Show T1
instance {-# WARNING "Don't use either" #-} Show G1
deriving instance {-# DEPRECATED "to be removed" #-} Eq T2
deriving instance {-# WARNING "to be removed as well" #-} Eq G2
|
