[jhc] parse error on where with jhc

The following code gives a parse error on jhc: configureFlagWithDefault :: String -> String -> String -> C () -> (String -> C ()) -> C FranchiseFlag configureFlagWithDefault n argname h defaultaction j = do whenC amConfiguring $ addHook n defaultaction return $ FF $ Option [] [n] (ReqArg (addHook n . j') argname) h where j' v = do putV $ "handling configure flag --"++n++" "++v; j v Evidently, jhc wants the where to be less indented than the do block. I've no idea how this compares with the language standard, but it certainly differs from ghc, so I thought it'd be worth mentioning. Of course, it's not really a nice way to indent... -- David Roundy