current cvs hdirect problems

[kyra]

After all, current cvs ihc doesn't generate proper context declarations.

For example,
ihc --tlb ... <third party com server dll> generates (incorrectly?)
something like:

getStartDate :: TimeSheet a1
             -> Prelude.IO a0

while hdirect 0.19 ihc generates (correctly?):

getStartDate :: (Automation.Variant a0)
             => TimeSheet a1
             -> Prelude.IO a0

ghc 6.0.1 can compile the latter but not the former, complaining:
    Could not deduce (Automation.Variant a0) from the context ()
      arising from use of `Automation.outVariant' at ...
    Probable fix:
 Add (Automation.Variant a0)
 to the type signature(s) for `getStartDate'

Not to mention this error is pervasive in the current cvs ihc generated
code.