hanafuda
/
lib
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove WillowRed accidentally present in plains' set

This commit is contained in:
Sasha 2018-08-27 20:12:03 +02:00
parent 4fca4791fa
commit f2428f353f
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog.md
View File

@ -1,5 +1,9 @@
# Revision history for hanafuda # Revision history for hanafuda
## 0.3.0.2 -- 2018-08-27
* Remove WillowRed accidentally present in plains' set
## 0.3.0.1 -- 2018-07-28 ## 0.3.0.1 -- 2018-07-28
* Fix bug causing players' state to be persisted accross rounds of a game * Fix bug causing players' state to be persisted accross rounds of a game

2
hanafuda.cabal
View File

@ -2,7 +2,7 @@
-- documentation, see http://haskell.org/cabal/users-guide/ -- documentation, see http://haskell.org/cabal/users-guide/
name: hanafuda name: hanafuda
version: 0.3.0.1 version: 0.3.0.2
synopsis: A game of Hanafuda (a family of japanese card games) synopsis: A game of Hanafuda (a family of japanese card games)
description: This is a library to represent the cards and the players description: This is a library to represent the cards and the players
of games in this family. It also implements one such game of games in this family. It also implements one such game

2
src/Hanafuda/KoiKoi/Yaku.hs
View File

@ -79,7 +79,7 @@ finders = do
inoshikacho = [Butterflies, Boar, Deer] inoshikacho = [Butterflies, Boar, Deer]
aotan = [PeonyBlue, ChrysanthemumBlue, MapleBlue] aotan = [PeonyBlue, ChrysanthemumBlue, MapleBlue]
akatan = [PinePoetry, PlumPoetry, CherryPoetry] akatan = [PinePoetry, PlumPoetry, CherryPoetry]
plains = (foldl (++) [] [map toEnum [4*i, 4*i+1] | i <- [0..10]]) ++ Lightning : [Paulownia0 .. Sand] plains = (foldl (++) [] [map toEnum [4*i, 4*i+1] | i <- [0..9]]) ++ Lightning : [Paulownia0 .. Sand]
meldInto :: [Card] -> Pack -> Monthly (Score, Pack) meldInto :: [Card] -> Pack -> Monthly (Score, Pack)
meldInto cards pack = do meldInto cards pack = do