Commit bdb48a69 authored by simonpj's avatar simonpj
Browse files

Comments only

parent edf395e7
...@@ -17,4 +17,10 @@ instance Foo t => Sat (FooD t) ...@@ -17,4 +17,10 @@ instance Foo t => Sat (FooD t)
instance Data FooD a => Foo a instance Data FooD a => Foo a
instance Foo a => Foo [a] instance Foo a => Foo [a]
-- Have: Foo a, Data FooD a, Foo [a]
--
-- Want superclasses: (Data FooD [a])
-- and hence: Sat (FooD [a]), Data FooD a
-- and hence: Foo [a]
instance Foo [Char] instance Foo [Char]
{-# OPTIONS -fglasgow-exts #-} {-# LANGUAGE RankNTypes, ScopedTypeVariables #-}
module ShouldCompile where module ShouldCompile where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment