tdpeuter/2022FuncProg-project1-memory
tdpeuter/2022FuncProg-project1-memory
Archived
1
Fork 0
Code Pull requests Activity

renderCards

Browse source
This commit is contained in:
Tibo De Peuter 2022-10-15 19:51:59 +02:00
parent dd666a84e4
commit 76f9ba0bc6
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Main.hs
View file

@ -216,9 +216,8 @@ renderCard card = renderColoredSquare scaling color
where color = (\(_,c,_) -> c) card
-- Render alle kaarten.
-- TODO Klopt deze functionaliteit?
renderCards :: [Card] -> Picture
renderCards = renderCard . head
renderCards = pictures . map renderCard
-- Render het speelveld.
render :: Board -> Picture