Fixing long standing bug regarding line separators.
This commit is contained in:
parent
4d0c56f10b
commit
c41cb4c2d2
@ -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
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user