From 503bbc7d9b6e49c613e48269b903a8ddfd4bf84a Mon Sep 17 00:00:00 2001
From: Gabriel Omar Cotelli <g.cotelli@gmail.com>
Date: Mon, 24 Jun 2019 14:25:08 -0300
Subject: [PATCH] Add a compatibility package for Pharo 6.1 Fixes #8

---
 src/BaselineOfJRPC/BaselineOfJRPC.class.st         | 10 +++++++++-
 src/JRPC-Server-Pharo6/ZnEntity.extension.st       |  7 +++++++
 src/JRPC-Server-Pharo6/ZnStringEntity.extension.st |  8 ++++++++
 src/JRPC-Server-Pharo6/package.st                  |  1 +
 4 files changed, 25 insertions(+), 1 deletion(-)
 create mode 100644 src/JRPC-Server-Pharo6/ZnEntity.extension.st
 create mode 100644 src/JRPC-Server-Pharo6/ZnStringEntity.extension.st
 create mode 100644 src/JRPC-Server-Pharo6/package.st

diff --git a/src/BaselineOfJRPC/BaselineOfJRPC.class.st b/src/BaselineOfJRPC/BaselineOfJRPC.class.st
index c7d5744..e6f9176 100644
--- a/src/BaselineOfJRPC/BaselineOfJRPC.class.st
+++ b/src/BaselineOfJRPC/BaselineOfJRPC.class.st
@@ -30,6 +30,12 @@ BaselineOfJRPC >> setUpPackages: spec [
 	spec
 		package: 'JRPC-Server' with: [ spec requires: 'JRPC-Common' ];
 		group: 'Server-Deployment' with: 'JRPC-Server'.
+	spec
+		for: #'pharo6.x'
+		do: [ spec
+				package: 'JRPC-Server-Pharo6';
+				group: 'Server-Deployment' with: 'JRPC-Server-Pharo6'
+	].	
 	spec
 		package: 'JRPC-Client' with: [ spec requires: 'JRPC-Common' ];
 		group: 'Client-Deployment' with: 'JRPC-Client'.
@@ -37,5 +43,7 @@ BaselineOfJRPC >> setUpPackages: spec [
 
 	spec
 		package: 'JRPC-Tests' with: [ spec requires: 'Deployment' ];
-		group: 'Tests' with: 'JRPC-Tests'
+		group: 'Tests' with: 'JRPC-Tests'.
+		
+
 ]
diff --git a/src/JRPC-Server-Pharo6/ZnEntity.extension.st b/src/JRPC-Server-Pharo6/ZnEntity.extension.st
new file mode 100644
index 0000000..fba4bd6
--- /dev/null
+++ b/src/JRPC-Server-Pharo6/ZnEntity.extension.st
@@ -0,0 +1,7 @@
+Extension { #name : #ZnEntity }
+
+{ #category : #'*JRPC-Server-Pharo6' }
+ZnEntity class >> json: text [
+
+	^ self stringEntityClass json: text
+]
diff --git a/src/JRPC-Server-Pharo6/ZnStringEntity.extension.st b/src/JRPC-Server-Pharo6/ZnStringEntity.extension.st
new file mode 100644
index 0000000..d6cd1a7
--- /dev/null
+++ b/src/JRPC-Server-Pharo6/ZnStringEntity.extension.st
@@ -0,0 +1,8 @@
+Extension { #name : #ZnStringEntity }
+
+{ #category : #'*JRPC-Server-Pharo6' }
+ZnStringEntity class >> json: string [
+	^ (self type: ZnMimeType applicationJson)
+		string: string;
+		yourself
+]
diff --git a/src/JRPC-Server-Pharo6/package.st b/src/JRPC-Server-Pharo6/package.st
new file mode 100644
index 0000000..26062d4
--- /dev/null
+++ b/src/JRPC-Server-Pharo6/package.st
@@ -0,0 +1 @@
+Package { #name : #'JRPC-Server-Pharo6' }