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