summaryrefslogtreecommitdiff
path: root/testsuite/tests/quotes/TH_tf2.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/quotes/TH_tf2.hs')
-rw-r--r--testsuite/tests/quotes/TH_tf2.hs26
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