Commit fa3fb70d authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5379

parent f53c3881
{-# LANGUAGE TemplateHaskell #-}
module Main where
import Language.Haskell.TH
$( [d| g = 0
h = $( return $ LamE [VarP (mkName "g")] (VarE 'g) ) |] )
-- The 'g should bind to the g=0 definition
-- Should print 0, not 1!
main = print (h 1)
......@@ -195,3 +195,4 @@ test('TH_unresolvedInfix2',
['-v0'])
test('T5358', normal, compile_fail, [''])
test('T5379', 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