Fixing long standing bug regarding line separators.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-11-22 12:23:42 -05:00
parent 4d0c56f10b
commit c41cb4c2d2

View File

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