addTickHsCmd (HsCmdDo stmts srcloc)
  = do { (stmts', _) <- addTickLCmdStmts' stmts (return ())
       ; return (HsCmdDo stmts' srcloc) }
addTickHsCmd (HsCmdDo stmts srcloc)
  = do { (stmts', _) <- addTickLCmdStmts' stmts (return ())
       ; return (HsCmdDo stmts' srcloc) }
addTickHsCmd (HsCmdDo stmts srcloc)
  = do { (stmts', _) <- addTickLCmdStmts' stmts (return ())
       ; return (HsCmdDo stmts' srcloc) }