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 System hiding (getArgs)
13 g :: (Num a, Eq b) => Foo a -> [b] -> (a, a, a) -> b
14 bindwith :: (OrdClass a, OrdClass b) => a -> b -> b
37 = ((((((((a + (: a b)) + (a : b)) + (((1 - 'c') - "abc") - 1.293))
38 + ((\ x y z -> x) 42))
49 + ([z | z <- c, isSpace z]))
54 (((((((y + [1, 2, 3, 4]) + (4, 3, 2, 1)) + (4 :: (Num a) => a))
55 + (if 42 == 42.0 then 1 else 4))
74 default (Integer, Rational)
75 instance (Eq a) => EqClass (EqTree a) where
78 class (Ord a) => OrdClass a where {
79 ordc :: a -> Char; ordb :: a -> Char; orda :: a -> Char;
81 class (Eq a) => EqClass a where {
85 data (Eq a) => EqTree a = EqLeaf a | EqBranch (EqLeaf a) (EqLeaf a)
86 data FooDataB = FooConB Double
87 data FooData = FooCon Int
88 type Pair a b = (a, b)
95 read001.hs:20: Warning: Unused fixity declaration for `+#'
98 read001.hs:5: Type constructor or class not in scope: `FooDataC'
100 read001.hs:5: Unknown module in export list: module `OneC'
102 read001.hs:40: Type constructor or class not in scope: `EqLeaf'
104 read001.hs:40: Type constructor or class not in scope: `EqLeaf'
106 read001.hs:80: Value not in scope: `isSpace'
108 read001.hs:87: Value not in scope: `x'
110 read001.hs:87: Value not in scope: `x'
112 read001.hs:95: Value not in scope: `foo'
114 read001.hs:107: Data constructor not in scope: `Foo'
116 read001.hs:107: Data constructor not in scope: `Bar'
118 read001.hs:112: Type constructor or class not in scope: `Foo'
121 Compilation had errors