Commit 2f2ebd32 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #4949

parent 5a3b96af
{-# LANGUAGE TemplateHaskell #-}
module Foo where
import Language.Haskell.TH
x :: Int
x = let args = [| show $(varE (mkName "x")) |]
in undefined
...@@ -174,3 +174,4 @@ test('T1835', normal, compile_and_run, ['-v0']) ...@@ -174,3 +174,4 @@ test('T1835', normal, compile_and_run, ['-v0'])
test('TH_viewPatPrint', normal, compile_and_run, ['']) test('TH_viewPatPrint', normal, compile_and_run, [''])
test('T4436', normal, compile, ['-v0 -ddump-splices']) test('T4436', normal, compile, ['-v0 -ddump-splices'])
test('T4949', normal, compile, ['-v0'])
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