{-# LINE 100 "Foo.hs #-} vs. # 100 "Foo.hs"

[Manuel M. T. Chakravarty]

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