testsuite/tests/printer/Ppr035.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Warning
{-# WARNINg ["This is a module warning",
             "multi-line"] #-}
  where

{-# Warning   foo ,  bar
         ["This is a multi-line",
          "deprecation message",
          "for foo"] #-}
foo :: Int
foo = 4

bar :: Char
bar = 'c'