plugins10 no longer broken
[ghc.git] / testsuite / tests / plugins / plugins08.hs
1 -- Tests a plugin added with TH.addCorePlugin
2 {-# LANGUAGE TemplateHaskell #-}
3 module Main where
4
5 import Simple.DataStructures
6 import Language.Haskell.TH.Syntax
7
8 do addCorePlugin "Simple.Plugin"
9 return []
10
11 {-# ANN theMessage (ReplaceWith "Right") #-}
12 {-# NOINLINE theMessage #-}
13 theMessage = "Wrong"
14
15 main = do
16 putStrLn "Program Started"
17 putStrLn theMessage
18 putStrLn "Program Ended"