blob: 403d81f0763ba3248c28b43400faaa30afcdb667 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
-- Tests a plugin added with TH.addCorePlugin
{-# LANGUAGE TemplateHaskell #-}
module Main where
import Simple.DataStructures
import Language.Haskell.TH.Syntax
do addCorePlugin "Simple.Plugin"
return []
{-# ANN theMessage (ReplaceWith "Right") #-}
{-# NOINLINE theMessage #-}
theMessage = "Wrong"
main = do
putStrLn "Program Started"
putStrLn theMessage
putStrLn "Program Ended"
|
