Abysmal error message from `ghc -M`

[simonpj]

ghc-6.6.1 -M -cpp Foo.hs Bar.hs
/tmp/ghc9234_0/ghc9234_2.hscpp:1:0:
    file name does not match module name `Main'

What a terrible message! The source code is this:

Foo.hs (note the mis-typed Module)

Module Foo where
  f x = x

Bar.hs

module Bar where
  import Foo

[simonmar]

I'm validating a fix

[simonmar]

Fixed:

Tue Sep 11 01:54:52 PDT 2007  Simon Marlow <simonmar@microsoft.com>
  * FIX #1677; poor error message for misspelled module declaration