diff options
| author | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-05-10 08:12:21 +0200 |
|---|---|---|
| committer | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-05-10 08:12:21 +0200 |
| commit | 9e4c8ad32eff3bf0350480109b2f5a5ad4738f09 (patch) | |
| tree | f7a025f43701f115d2390b9e5f2a7acd898c45da /compiler/deSugar | |
| parent | 61d89bc49eb75d74ed9196ba5f7b7b32018b914b (diff) | |
| parent | 2d5205118357cac8a2dd43b33bcd93a3c00f5558 (diff) | |
| download | haskell-9e4c8ad32eff3bf0350480109b2f5a5ad4738f09.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc into ghc-generics
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/Coverage.lhs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs index 8071da756f..37cbc2d5c5 100644 --- a/compiler/deSugar/Coverage.lhs +++ b/compiler/deSugar/Coverage.lhs @@ -608,9 +608,12 @@ addTickCmdGRHSs (GRHSs guarded local_binds) = do binders = collectLocalBinders local_binds addTickCmdGRHS :: GRHS Id -> TM (GRHS Id) -addTickCmdGRHS (GRHS stmts cmd) = do - (stmts',expr') <- addTickLCmdStmts' stmts (addTickLHsCmd cmd) - return $ GRHS stmts' expr' +-- The *guards* are *not* Cmds, although the body is +-- C.f. addTickGRHS for the BinBox stuff +addTickCmdGRHS (GRHS stmts cmd) + = do { (stmts',expr') <- addTickLStmts' (Just $ BinBox $ GuardBinBox) + stmts (addTickLHsCmd cmd) + ; return $ GRHS stmts' expr' } addTickLCmdStmts :: [LStmt Id] -> TM [LStmt Id] addTickLCmdStmts stmts = do |