Debugging of STON pretty print started.
This commit is contained in:
parent
3699111416
commit
fe57ba9497
@ -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
|
||||
]
|
||||
|
@ -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 }
|
||||
|
Loading…
Reference in New Issue
Block a user