@@ -1,5 +1,7 @@
1module TypeClasses where
1module TypeClasses where
3class Show a where
5class Show a where
4 show :: a -> String
6 show :: a -> String
@@ -16,6 +18,8 @@ test2 = \ -> f "testing"
16test7 :: forall a. (Show a) => a -> String
18test7 :: forall a. (Show a) => a -> String
17test7 = show
19test7 = show
21+test8 = \ -> show $ "testing"
19data Data a = Data a
23data Data a = Data a
21instance (TypeClasses.Show a) => TypeClasses.Show (Data a) where
25instance (TypeClasses.Show a) => TypeClasses.Show (Data a) where