assert fails on HEAD

Example of failure

[andy@thunderegg should_run]$ cat dsrun014.hs 
module Main where

import Control.Exception ( assert )

main = assert "Hello" True $ print "World"

[andy@thunderegg should_run]$ $GHC66 dsrun014.hs 

dsrun014.hs:5:7:
    Couldn't match expected type `GHC.Prim.Addr#'
           against inferred type `[Char]'
    In the first argument of `GHC.Err.assertError', namely
        `"dsrun014.hs:5:7-12"'
    In the call (GHC.Err.assertError "dsrun014.hs:5:7-12" "Hello" True)
    In the first argument of `($)', namely
        `GHC.Err.assertError "dsrun014.hs:5:7-12" "Hello" True'

Trac metadata

Trac field	Value
Version	6.5
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Compiler
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system	Unknown
Architecture	Unknown