1 ==================== Reader ====================
2 module OneOfEverything (
3 fixn, FooData, FooDataB(..), FooDataC(..), EqTree(EqLeaf,
4 EqBranch), EqClass(..), OrdClass(orda,
5 ordb), module OneC, module OneOfEverything
9 import OneC hiding (fC)
10 import OneC hiding (fC)
15 bindwith :: _forall_ [] (OrdClass a, OrdClass b) => a -> b -> b
16 g :: _forall_ [] (Num a, Eq b) => Foo a -> [b] -> (a, a, a) -> b
39 = ((((((((a + (: a b)) + (a : b))
40 + (((1 - 'c') - "abc") - 1.2929999999999999))
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.000000000000000 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)
95 read001.hs:17: Could not find valid interface file `OneA'
97 read001.hs:18: Could not find valid interface file `OneB'
99 read001.hs:18: Module OneB does not export `fB'
101 read001.hs:19: Could not find valid interface file `OneC'
103 read001.hs:19: Module OneC does not export `fC'
105 read001.hs:20: Module OneC does not export `fC'
107 Compilation had errors