blob: f9cf6a3faa748c88c872e948c21e82a3a77ad6d5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances, FlexibleContexts,
UndecidableInstances, TypeSynonymInstances #-}
-- This test made GHC 6.3 build a superclass loop, in
-- the instance ClassA a String declaration
module Main where
class (Sat (a -> b -> String), ClassB b) => ClassA a b
class ClassB a where
fun :: a -> String
class Sat x where
sat :: x
instance ClassA a b => Sat (a -> b -> String) where
sat = const fun
instance ClassA a String
-- Badness was that the ClassB superclass dict was loopy
--
-- Needs Sat (a -> String -> String), ClassB String
-- --> ClassA a String, ClassB String
-- and adding ClassA gives superclass ClassB.
instance ClassB String where
fun = id
main = print ((sat :: Int -> String -> String) 3 "hello")
|