[jhc] parse error on where with jhc

[David Roundy]

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