From cc20b3a5e6a40be77a10c46cf3270fe85e2b3e38 Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@ugent.be>
Date: Tue, 15 Nov 2022 22:53:33 +0100
Subject: [PATCH] #3 Polished CardRenderer

---
 lib/CardRenderer.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/CardRenderer.hs b/lib/CardRenderer.hs
index 10bced8..7a3a185 100644
--- a/lib/CardRenderer.hs
+++ b/lib/CardRenderer.hs
@@ -71,6 +71,7 @@ renderStacks stackDist cardDist = compose . spreadOutStacks
     where renderedStacks  = map (renderStack cardDist)
           spreadOutStacks = spread (stackDist + cardWidth) 0 . renderedStacks
 
+-- Convert a CardType to a string.
 cardTypeToString :: CardType -> [Char]
 cardTypeToString Clubs    = "club"
 cardTypeToString Diamonds = "diamond"
@@ -78,6 +79,7 @@ cardTypeToString Hearts   = "heart"
 cardTypeToString Spades   = "spade"
 cardTypeToString _        = ""
 
+-- Convert a CardType to a character.
 cardTypeToChar :: CardValue -> [Char]
 cardTypeToChar Ace   = "A"
 cardTypeToChar Jack  = "J"