Regression for Tiddlers exportation in friendly format corrected.
This commit is contained in:
parent
655ee2e935
commit
494bfc76a7
@ -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
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user