Test cases for GHCi data, class, etc.
[ghc.git] / testsuite / tests / ghci / scripts / ghci044.script
1 --Testing flexible and Overlapping instances
2 class C a where { f :: a -> Int; f _ = 3 }
3 instance C Int where { f = id }
4 instance C [Int]
5 :set -XFlexibleInstances
6 instance C [Int]
7 instance C a => C [a] where f xs = length xs
8 -- ***This should be an overlapping instances error!***
9 :set -XOverlappingInstances
10 instance C a => C [a] where f xs = length xs