1 files changed, 5 insertions, 0 deletions
diff --git a/Card.hs b/Card.hs
index 321df84..64c74c8 100644
--- a/Card.hs
+++ b/Card.hs
@@ -1,5 +1,6 @@
 module Card where
 
+import qualified Data.List as L
 import System.Random (RandomGen, random)
 
 data Suit = Spade | Heart | Diamond | Club deriving (Show, Eq, Ord, Enum)
@@ -18,6 +19,10 @@ showCard (Card st rk) = (show st) ++ " " ++ (rkStr)
                     Ace   -> "A"
                     _     -> show $ fromEnum rk + 2
 
+-- | Pretty print a list of cards.
+showCards :: [Card] -> String
+showCards = L.intercalate ", " . map showCard
+
 -- | Produce one full 52-deck.
 fullDeck = [Card st rk | st <- allSuits, rk <- allRanks]
     where allSuits = enumFrom $ toEnum 0