From a2489d5482f71788635786eb726adc5b423ab4a9 Mon Sep 17 00:00:00 2001
From: OffrayLuna <offray.luna@mutabit.com>
Date: Mon, 22 Apr 2019 20:15:48 +0000
Subject: [PATCH] Factoring serialization to external files.

---
 src/Grafoscopio-Utils/GrafoscopioUtils.class.st | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/Grafoscopio-Utils/GrafoscopioUtils.class.st b/src/Grafoscopio-Utils/GrafoscopioUtils.class.st
index 2c2a564..e162ed0 100644
--- a/src/Grafoscopio-Utils/GrafoscopioUtils.class.st
+++ b/src/Grafoscopio-Utils/GrafoscopioUtils.class.st
@@ -60,7 +60,15 @@ GrafoscopioUtils class >> ensureCreateDirectory: fileNameWithRelativePath into:
 
 { #category : #persistence }
 GrafoscopioUtils class >> exportAsSton: anObject on: aFileReference [
-	"comment stating purpose of message"
+	aFileReference exists ifTrue: [ aFileReference ensureDelete ].
+	aFileReference ensureCreateFile.
+	aFileReference writeStreamDo: [ :stream |
+		(STON writer on: stream)
+			newLine: String crlf;
+			prettyPrint: true;
+			keepNewLines: true;
+			nextPut: anObject ].
+	
 
 	
 ]