summaryrefslogtreecommitdiff
path: root/testsuite/tests/simplCore/should_compile/T15205.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T15205.hs')
-rw-r--r--testsuite/tests/simplCore/should_compile/T15205.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T15205.hs b/testsuite/tests/simplCore/should_compile/T15205.hs
new file mode 100644
index 0000000000..64eb1f51d6
--- /dev/null
+++ b/testsuite/tests/simplCore/should_compile/T15205.hs
@@ -0,0 +1,8 @@
+{-# LANGUAGE MultiParamTypeClasses, GADTs, TypeOperators #-}
+module Foo where
+
+class (a ~ b) => C a b where
+ op :: a -> a -> b
+
+f :: C a b => a -> b
+f x = op x x