diff options
Diffstat (limited to 'testsuite/tests/quotes/TH_tf2.hs')
-rw-r--r-- | testsuite/tests/quotes/TH_tf2.hs | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/testsuite/tests/quotes/TH_tf2.hs b/testsuite/tests/quotes/TH_tf2.hs deleted file mode 100644 index 9f313d4a3e..0000000000 --- a/testsuite/tests/quotes/TH_tf2.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE AllowAmbiguousTypes #-} -- 'bar' is ambiguous - -module TH_tf2 where - -{- -$( [d| class C a where - data T a - foo :: Bool -> T a |] ) - -$( [d| instance C Int where - data T Int = TInt Bool - foo b = TInt (b && b) |] ) - -$( [d| instance C Float where - data T Float = TFloat {flag :: Bool} - foo b = TFloat {flag = b && b} |] ) --} - -class D a where - type S a - bar :: S a -> Int - -instance D Int where - type S Int = Bool - bar c = if c then 1 else 2 |