2 ==================== Reader ====================
3 module OneOfEverything (
4 fixn, FooData, FooDataB(..), FooDataC(..), EqTree(EqLeaf,
5 EqBranch), EqClass(..), OrdClass(orda,
6 ordb), module OneC, module OneOfEverything
10 import OneC hiding (fC)
11 import OneC hiding (fC)
16 bindwith :: _forall_ [] (OrdClass a, OrdClass b) => a -> b -> b
17 g :: _forall_ [] (Num a, Eq b) => Foo a -> [b] -> (a, a, a) -> b
40 = ((((((((a + (: a b)) + (a : b)) + (((1 - 'c') - "abc") - 1.293))
41 + ((\ x y z -> x) 42))
52 + ([z | z <- c, isSpace z]))
57 (((((((y + [1, 2, 3, 4]) + (4, 3, 2, 1))
58 + (4 :: _forall_ [] (Num a) => a))
59 + (if 42 == 42.0 then 1 else 4))
78 default (Integer, Rational)
79 instance _forall_ [] (Eq a) => EqClass (EqTree a) where
82 class (Ord a) => OrdClass a where {
83 orda :: a -> Char; ordb :: a -> Char; ordc :: a -> Char;
85 class (Eq a) => EqClass a where {
89 data (Eq a) => EqTree a = EqLeaf a | EqBranch (EqLeaf a) (EqLeaf a)
90 data FooDataB = FooConB Double
91 data FooData = FooCon Int
92 type Pair a b = (a, b)
96 read001.hs:17: Could not find valid interface file `OneA'
98 read001.hs:18: Could not find valid interface file `OneB'
100 read001.hs:18: Module `OneB' does not export `fB'
102 read001.hs:19: Could not find valid interface file `OneC'
104 read001.hs:19: Module `OneC' does not export `fC'
106 read001.hs:20: Module `OneC' does not export `fC'
109 Compilation had errors