Commit 0fbdefa7 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test for Trac #2017

parent cf86ebae
{-# OPTIONS_GHC -XTemplateHaskell #-}
-- Trac #2017
module ShouldCompile where
import Language.Haskell.TH
$(do e <- [d| f a b
| a == b = a
| otherwise = b |]
return e)
......@@ -13,6 +13,7 @@ test('TH_repE1', normal, compile, [''])
test('TH_repE2', normal, compile_and_run, [''])
test('TH_repE3', normal, compile, [''])
test('TH_repPrim', normal, compile, ['-v0'])
test('TH_spliceGuard', normal, compile, ['-v0'])
test('TH_repPrimOutput', normal, compile_and_run, [''])
test('TH_repGuard', normal, compile, ['-v0'])
test('TH_repGuardOutput', 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