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)) + (((1 - 'c') - "abc") - 1.293))
40 + ((\ x y z -> x) 42))
51 + ([z | z <- c, isSpace z]))
56 (((((((y + [1, 2, 3, 4]) + (4, 3, 2, 1))
57 + (4 :: _forall_ [] (Num a) => a))
58 + (if 42 == 42.0 then 1 else 4))
77 default (Integer, Rational)
78 instance _forall_ [] (Eq a) => EqClass (EqTree a) where
81 class (Ord a) => OrdClass a where {
82 orda :: a -> Char; ordb :: a -> Char; ordc :: a -> Char;
84 class (Eq a) => EqClass a where {
88 data (Eq a) => EqTree a = EqLeaf a | EqBranch (EqLeaf a) (EqLeaf a)
89 data FooDataB = FooConB Double
90 data FooData = FooCon Int
91 type Pair a b = (a, b)
94 read001.hs:17: Could not find valid interface file `OneA'
96 read001.hs:18: Could not find valid interface file `OneB'
98 read001.hs:18: Module OneB does not export `fB'
100 read001.hs:19: Could not find valid interface file `OneC'
102 read001.hs:19: Module OneC does not export `fC'
104 read001.hs:20: Module OneC does not export `fC'
106 Compilation had errors