Testsuite: pass '-s --no-print-directory' to MAKE
[ghc.git] / testsuite / tests / plugins / plugins01.hs
1 -- Intended to test that the plugins have basic functionality --
2 -- * Can modify the program
3 -- * Get to see command line options
4 module Main where
5
6 import Simple.DataStructures
7
8 {-# ANN theMessage (ReplaceWith "Right") #-}
9 {-# NOINLINE theMessage #-}
10 theMessage = "Wrong"
11
12 main = do
13 putStrLn "Program Started"
14 putStrLn theMessage
15 putStrLn "Program Ended"