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

Test Trac #4056

parent a0dafb98
{-# LANGUAGE TemplateHaskell, TypeFamilies, RankNTypes, FlexibleContexts #-}
module T4056 where
import Language.Haskell.TH
astTest :: Q [Dec]
astTest = [d|
class C t where
op :: [t] -> [t]
op = undefined
|]
class D t where
bop :: [t] -> [t]
bop = undefined
......@@ -162,3 +162,4 @@ test('T3600', extra_clean(['T3600a.hi','T3600a.o']),
test('T3845', normal, compile, ['-v0'])
test('T3899', extra_clean(['T3899a.hi','T3899a.o']),
multimod_compile, ['T3899','-v0 -ddump-splices -dsuppress-uniques'])
test('T4056', 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