real/veritas/DerivedRules.hs features invalid multibyte/wide char

Around line 113 of real/veritas/DerivedRules.hs features the following comment:

{-
(******************************************************************************)
(*                 » ù   » æ                                                  *)
(*                 --------- conj                                             *)
(*                  » ù ³ æ                                                   *)
(******************************************************************************)
-}

This causes readFile (and thus hpc) to choke:

>ghci-6.12.1
GHCi, version 6.12.1: http://www.haskell.org/ghc/  :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.
Loading package ffi-1.0 ... linking ... done.
Prelude> readFile "../nofib-clean/real/veritas/DerivedRules.hs"
"module DerivedRules where\n\nimport Type_defs\n\nimport 
...elided...
iL\n\n\t  iLL = find 0 [] tm\n\n\t  tm' = foldl lift_fn  tm iLL\n\n\n{-\n(******************************************************************************)\n(*                 *** Exception: ../nofib-clean/real/veritas/DerivedRules.hs: hGetContents: invalid argument (Invalid or incomplete multibyte or wide character)
Prelude>
Leaving GHCi.

This doesn't affect 6.10.1 so I guess it's at the interaction of the new IO/unicode encoding work that went into 6.12.

Trac metadata

Trac field	Value
Version	6.12.3
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	NoFib benchmark suite
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture