1 files changed, 3 insertions, 3 deletions
diff --git a/Player.hs b/Player.hs
index ec0dbcc..0b57c7e 100644
--- a/Player.hs
+++ b/Player.hs
@@ -13,9 +13,9 @@ data Player = Player { name :: String
 shed :: Player -> Card -> Player
 shed (Player n p cs) c = Player n p $ L.delete c cs
 
--- | Same player after drawing card specified.
-draw :: Player -> Card -> Player
-draw (Player n p cs) c = Player n p $ L.sort (c:cs)
+-- | Same player after drawing cards specified.
+draw :: Player -> [Card] -> Player
+draw (Player n p cs) cs' = Player n p $ L.sort (cs' ++ cs)
 
 -- | Show player's cards, e.g. "1. Spade 2"
 showCards :: Player -> String