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"