diff options
Diffstat (limited to 'testsuite/tests/typecheck/should_compile/T5120.hs')
| -rw-r--r-- | testsuite/tests/typecheck/should_compile/T5120.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_compile/T5120.hs b/testsuite/tests/typecheck/should_compile/T5120.hs new file mode 100644 index 0000000000..6fe95c4516 --- /dev/null +++ b/testsuite/tests/typecheck/should_compile/T5120.hs @@ -0,0 +1,12 @@ +{-# LANGUAGE ImplicitParams #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE NoMonomorphismRestriction #-}
+
+module Test where
+
+class C t where
+ type TF t
+ ttt :: TF t -> t
+
+b :: (C t, ?x :: TF t) => t
+b = ttt ?x
|