Class {
	#name : #MarkupFile,
	#superclass : #Object,
	#instVars : [
		'file'
	],
	#category : #'Grafoscopio-Utils'
}

{ #category : #persistence }
MarkupFile class >> exportAsFileOn: aFileReferenceOrFileName containing: contents [
	| file |
	file := aFileReferenceOrFileName asFileReference.
	file exists ifFalse: [ file ensureCreateFile ].
	file writeStreamDo: [ :stream |
		stream nextPutAll: contents ].
	self inform: 'Exported as: ', String cr, file fullName
]