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

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