From dbe6f2ce44d28cbd0cad7e5ed3b9e1766fdae8ee Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Tue, 21 Jul 2015 14:47:35 +0200
Subject: Extend instances test case to also test multi-name type signatures.

---
 html-test/src/Instances.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'html-test')

diff --git a/html-test/src/Instances.hs b/html-test/src/Instances.hs
index 8e237fe7..85c21754 100644
--- a/html-test/src/Instances.hs
+++ b/html-test/src/Instances.hs
@@ -26,9 +26,13 @@ class Foo f => Bar f a where
 
     bar :: f a -> f Bool -> a
     bar' :: f (f a) -> f (f (f b))
+    bar0, bar1 :: (f a, f a) -> (f b, f c)
 
     bar = undefined
     bar' = undefined
+    bar0 = undefined
+    bar1 = undefined
+
 
 instance Bar Maybe Bool
 instance Bar Maybe [a]
-- 
cgit v1.2.3