diff options
| author | simonpj <simonpj@microsoft.com> | 2010-08-12 13:25:59 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2010-08-12 13:25:59 +0000 |
| commit | cc6fc94a158c8348b114b8aaacd29c458cab0119 (patch) | |
| tree | 6e3c8a3290fd80ecd929e2555f1af219d02f50b9 /testsuite/tests/ghc-regress/th | |
| parent | d6260b6d3354d4e6eae1a7a68a8eca2a3dee5202 (diff) | |
| download | haskell-cc6fc94a158c8348b114b8aaacd29c458cab0119.tar.gz | |
Modify Trac #4233 tests
Diffstat (limited to 'testsuite/tests/ghc-regress/th')
| -rw-r--r-- | testsuite/tests/ghc-regress/th/T4233.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/testsuite/tests/ghc-regress/th/T4233.hs b/testsuite/tests/ghc-regress/th/T4233.hs index c4da13bb53..87712d064d 100644 --- a/testsuite/tests/ghc-regress/th/T4233.hs +++ b/testsuite/tests/ghc-regress/th/T4233.hs @@ -1,9 +1,9 @@ - -{-# LANGUAGE TypeFamilies, TypeOperators, TemplateHaskell #-} - -module Q where - +{-# LANGUAGE TemplateHaskell #-} +module T4233 where import Language.Haskell.TH -type family a :<=: b + +w :: Q Type w = varT (mkName "w") -f = [t|Maybe $w :<=: Int|] + +f :: Q Type +f = [t| $w -> $w |] |