anchor.diff:  
     METHOD commit.
   
  -    DATA: lv_branch  TYPE t_sha1,
  -          lt_results TYPE tt_results,
  -          lt_push    TYPE tt_files,
  -          lt_files   TYPE tt_files.
  +    DATA: lv_branch      TYPE t_sha1,
  +          lt_results     TYPE tt_results,
  +          lt_push        TYPE tt_files,
  +          ls_comment     TYPE st_comment,
  +          lt_files       TYPE tt_files.
   
       FIELD-SYMBOLS: <ls_result> LIKE LINE OF lt_results.
   
   
       lcl_porcelain=>pull( EXPORTING is_repo   = is_repo
  -                         IMPORTING et_files  = lt_files
  -                                   ev_branch = lv_branch ).
  +                         IMPORTING et_files  = lt_files ).
   
       lt_results = lcl_serialize=>status( lt_files ).
   
  
positive.code:       WHEN '111'.
          rv_type = gc_ref_d.
        WHEN OTHERS.
          RAISE EXCEPTION TYPE lcx_exception
            EXPORTING
              iv_text = 'Todo, unknown type'.                 "#EC NOTEXT
      ENDCASE.
  
    ENDMETHOD.                    "get_type
  
negative.code: CLASS lcl_persistence DEFINITION FINAL.
  
    PUBLIC SECTION.
  * class-methods delete
  
      CLASS-METHODS list RETURNING value(rt_repos) TYPE tt_repos_sha1
                         RAISING lcx_exception.
  
      CLASS-METHODS update IMPORTING is_repo TYPE st_repo
                                     iv_branch TYPE t_sha1
                           RAISING lcx_exception.
  
      CLASS-METHODS add IMPORTING is_repo TYPE st_repo
                                     iv_branch TYPE t_sha1
                           RAISING lcx_exception.
  
  