Ignore my previous message, it was a lot simpler than I thought it was
> import Distribution.Simple
> import Distribution.Simple.PreProcess
>
> main =
> defaultMainWithHooks
> defaultUserHooks {
> hookedPreProcessors =
> [("chs", ppC2hs)]
> }
Dominic.