repoPath fix.
This commit is contained in:
parent
a28e3652de
commit
4393c48b96
@ -28,9 +28,10 @@ MCGiteabRepository >> branches [
|
|||||||
| response |
|
| response |
|
||||||
response := OrderedDictionary new.
|
response := OrderedDictionary new.
|
||||||
OSSUnixSubprocess new
|
OSSUnixSubprocess new
|
||||||
shellCommand: 'restify --class="gt-ellipsis" ', 'https://', self projectPath, '/branches';
|
shellCommand: 'restify --class="gt-ellipsis" ', 'https://', self projectPath, '/', self repoPath, '/branches';
|
||||||
redirectStdout;
|
redirectStdout;
|
||||||
runAndWaitOnExitDo: [ :command :outString |
|
runAndWaitOnExitDo: [ :command :outString |
|
||||||
|
outString ifEmpty: [^ command ].
|
||||||
(STON fromString: outString) do: [:each |
|
(STON fromString: outString) do: [:each |
|
||||||
response at: (each at: 'text') put: (each at: 'href')
|
response at: (each at: 'text') put: (each at: 'href')
|
||||||
]
|
]
|
||||||
|
Loading…
Reference in New Issue
Block a user