Debugging of STON pretty print started.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-02-04 19:24:08 -05:00
parent 3699111416
commit fe57ba9497
2 changed files with 2 additions and 2 deletions

View File

@ -17,7 +17,7 @@ MarkupFile class >> exportAsFileOn: aFileReferenceOrFileName containing: object
file ensureDelete.
file exists ifFalse: [ file ensureCreateFile ].
file writeStreamDo: [ :stream |
stream nextPutAll: (STON toStringPretty: object) withUnixLineEndings].
stream nextPutAll: (STON toStringPretty: object) withInternetLineEndings].
self inform: 'Exported as: ', String cr, file fullName.
^ file
]

View File

@ -45,7 +45,7 @@ MiniDocs class >> appFolder [
{ #category : #accessing }
MiniDocs class >> exportAsSton: anObject on: aFileReference [
MarkupFile exportAsFileOn: aFileReference containing: (STON toStringPretty: anObject)
MarkupFile exportAsFileOn: aFileReference containing: (STON toStringPretty: anObject) withInternetLineEndings
]
{ #category : #accessing }