Regression for Tiddlers exportation in friendly format corrected.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-03-23 09:36:14 -05:00
parent 655ee2e935
commit 494bfc76a7

View File

@ -11,13 +11,13 @@ Class {
}
{ #category : #persistence }
MarkupFile class >> exportAsFileOn: aFileReferenceOrFileName containing: object [
MarkupFile class >> exportAsFileOn: aFileReferenceOrFileName containing: aString [
| file |
file := aFileReferenceOrFileName asFileReference.
file ensureDelete.
file exists ifFalse: [ file ensureCreateFile ].
file writeStreamDo: [ :stream |
stream nextPutAll: (STON toStringPretty: object) withInternetLineEndings].
stream nextPutAll: ( aString ) withInternetLineEndings].
self inform: 'Exported as: ', String cr, file fullName.
^ file
]