From 494bfc76a7c77c1188b6e151f4ab47fa153755cb Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Sat, 23 Mar 2024 09:36:14 -0500 Subject: [PATCH] Regression for Tiddlers exportation in friendly format corrected. --- src/MiniDocs/MarkupFile.class.st | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/MiniDocs/MarkupFile.class.st b/src/MiniDocs/MarkupFile.class.st index e4010e0..cea9145 100644 --- a/src/MiniDocs/MarkupFile.class.st +++ b/src/MiniDocs/MarkupFile.class.st @@ -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 ]