testsuite/tests/driver/pragma002.hs


1
2
3
4
5
6
7
8
9

-- an options pragma that needs more than 1k of buffer to read
{-# OPTIONS_GHC
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                -w #-}

module Pragma002 () where

-- This will make a warning if the pragma isn't picked up
foo _ = ()
foo _ = ()