Commit 1223c385 authored by Ian Lynagh's avatar Ian Lynagh

Add a test that $( (\b -> [| b |]) True ) works

parent d33dc999
{-# LANGUAGE TemplateHaskell #-}
-- This failed in 6.10.1, as the Name's for True and False in
-- Language.Haskell.TH.Syntax.{trueName,falseName} were wrong.
module TH_spliceE6 where
a = $( (\b -> [| b |]) True )
b = $( (\m -> [| m |]) (Just 'm') )
c = $( (\e -> [| e |]) (Left 'e' :: Either Char Bool) )
......@@ -25,6 +25,8 @@ test('TH_spliceE5',
multimod_compile_and_run,
['TH_spliceE5.hs', '-v0'])
test('TH_spliceE6', normal, compile, ['-v0'])
# Testing profiling with TH is a bit tricky; we've already disabled
# the prof way above, and also we want to add options specifically for
# profiling (-osuf p_o) because this is necessary when mixing
......
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