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

Tests for Trac #5404 and #5410

parent 3d6d9674
{-# LANGUAGE TemplateHaskell #-}
module T5404 where
foobar :: Int
foobar = $([|
let
bar :: Int
bar = 5
in bar
|])
{-# LANGUAGE TemplateHaskell #-}
module Main where
$([d| instance Show (a -> b) where
showsPrec _ _ = showString "<function>"
|])
main = print id
\ No newline at end of file
......@@ -196,3 +196,5 @@ test('TH_unresolvedInfix2',
test('T5358', normal, compile_fail, [''])
test('T5379', normal, compile_and_run, [''])
test('T5404', normal, compile, ['-v0'])
test('T5410', normal, compile_and_run, ['-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