Panic: applyTypeToArgs with -O

My HWN publishing program,

http://www.galois.com/\~dons/publish.hs

elicits a panic from a ghc 6.8 snapshot from Sep 9, when compiled with -O:

$ ghc --make -O publish.hs -o publish -no-recomp
[1 of 1] Compiling Main             ( publish.hs, publish.o )
ghc-6.9.20070916: panic! (the 'impossible' happened)
  (GHC version 6.9.20070916 for x86_64-unknown-openbsd):
	applyTypeToArgs
    unix-2.0:System.Posix.Signals.a37{v rjv} [gid]
      (unix-2.0:System.Posix.Signals.a25{v rju} [gid]
       `cast` (base:GHC.Prim.sym{(w) tc 34v}
		 (base:Foreign.C.Types.:CoCInt{tc rjt})
	       :: <pred>base:GHC.Int.Int32{tc 3V}
			  ~
			<nt>base:Foreign.C.Types.CInt{tc r9e}))
      unix-2.0:System.Posix.Signals.Ignore{v rjs} [gid]
      (base:Data.Maybe.Nothing{v r4U} [gid]
	 @ <nt>unix-2.0:System.Posix.Signals.SignalSet{tc rjr})
      eta{v a3Uh} [lid]
    (# base:GHC.Prim.State#{(w) tc 32q}
	 base:GHC.Prim.RealWorld{(w) tc 31E},
       base:GHC.Base.(){(w) tc 40} #)

Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug

Trac metadata

Trac field	Value
Version	6.8
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Compiler (Type checker)
Test case
Differential revisions
BlockedBy
Related
Blocking
CC	dons@galois.com
Operating system
Architecture