From 2e5a2cb3b0af6dd5313446c866e7d33619131266 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 6 Apr 2023 19:30:34 -0500
Subject: [PATCH] Improved printing on PPCMLink.

---
 src/PetitMarkdown/PPCMLink.class.st | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/PetitMarkdown/PPCMLink.class.st b/src/PetitMarkdown/PPCMLink.class.st
index 92076ea..6625acb 100644
--- a/src/PetitMarkdown/PPCMLink.class.st
+++ b/src/PetitMarkdown/PPCMLink.class.st
@@ -34,6 +34,16 @@ PPCMLink >> label: anObject [
 	label := anObject
 ]
 
+{ #category : #accessing }
+PPCMLink >> printOn: aStream [
+	super initialize.
+	^ aStream
+		nextPutAll: 
+			self label children first text,
+			' -> ',
+			self destination
+]
+
 { #category : #accessing }
 PPCMLink >> title [
 	^ title