16 Jan
2001
16 Jan
'01
11:04 p.m.
Simon Marlow <simonmar@microsoft.com> wrote,
The preferred way should presumably be LINE pragmas.
Indeed. Or do you want to tell me that you are going to break one of my favourite programs? <EndangeredProgram> import Char instance Eq (a -> b) where _ ==_ = False instance Show (a -> b) where show = const "<function>" instance Num b => Num (a -> b) where fromInteger = const . fromInteger (+) = undefined (*) = undefined signum = undefined abs = undefined (#) :: Int -> Int -> String (x # y) = chr x : chr y : "!" main = putStrLn $ 78 # 111 "Foo.hs" </EndangeredProgram> Cheers, Manuel