Commit 5702699e authored by simonpj's avatar simonpj

[project @ 2004-06-22 09:50:11 by simonpj]

Add a where-clause test for TH
parent 69cd6522
{-# OPTIONS -fth #-}
module Main where
import Language.Haskell.TH
main = do {d <- runQ $ [| let { foo = bar where bar = 3 } in foo |]; print d}
...@@ -30,3 +30,5 @@ test('TH_spliceE4', normal, compile_and_run, ['']) ...@@ -30,3 +30,5 @@ test('TH_spliceE4', normal, compile_and_run, [''])
test('TH_bracket1', normal, compile, ['']) test('TH_bracket1', normal, compile, [''])
test('TH_bracket2', normal, compile, ['']) test('TH_bracket2', normal, compile, [''])
test('TH_bracket3', normal, compile, ['']) test('TH_bracket3', normal, compile, [''])
test('TH_where', normal, compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment