diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st index 0b41788..7a8da16 100644 --- a/repository/Fossil/FossilRepo.class.st +++ b/repository/Fossil/FossilRepo.class.st @@ -481,7 +481,7 @@ FossilRepo >> sanitize: aFileNameWithRelativePath [ { #category : #accessing } FossilRepo >> status [ - | status output missing edited | + | status output missing edited added | status := self command: 'status'. output := OrderedDictionary new. @@ -502,6 +502,12 @@ FossilRepo >> status [ at: 'edited' put: (edited collect: [ :line | (line withoutPrefix: 'EDITED') trimmed accentedCharactersCorrection ]). + + added := status lines select: [ :line | line beginsWith: 'ADDED' ]. + output + at: 'added' + put: (edited collect: + [ :line | (line withoutPrefix: 'ADDED') trimmed accentedCharactersCorrection ]). missing := status lines select: [ :line | line beginsWith: 'MISSING' ]. output