9 lines
330 B
Smalltalk
9 lines
330 B
Smalltalk
|
accessing
|
||
|
|
instancesCache
|
||
|
|
| cache cacheFile |
|
||
|
|
cacheFile := FileLocator temp / 'nitter-instances.ston'.
|
||
|
|
cacheFile exists
|
||
|
|
ifFalse: [
|
||
|
|
cache := STON fromString: 'https://status.d420.de/api/v1/instances' asUrl retrieveContents.
|
||
|
|
MarkupFile exportAsFileOn: cacheFile containing: cache ].
|
||
|
|
^ STON fromString: cacheFile contents
|