parse error on where

a 'where' should be able to end a do block when indented at the same level. here is a test case.

> 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