From f2428f353f79ed662f9c70ec9da6a465c005663b Mon Sep 17 00:00:00 2001 From: Sasha Date: Mon, 27 Aug 2018 20:12:03 +0200 Subject: [PATCH] Remove WillowRed accidentally present in plains' set --- ChangeLog.md | 4 ++++ hanafuda.cabal | 2 +- src/Hanafuda/KoiKoi/Yaku.hs | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog.md b/ChangeLog.md index a9d9f3d..7db2e17 100644 --- a/ChangeLog.md +++ b/ChangeLog.md @@ -1,5 +1,9 @@ # 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 * Fix bug causing players' state to be persisted accross rounds of a game diff --git a/hanafuda.cabal b/hanafuda.cabal index b350c04..3a6699e 100644 --- a/hanafuda.cabal +++ b/hanafuda.cabal @@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: hanafuda -version: 0.3.0.1 +version: 0.3.0.2 synopsis: A game of Hanafuda (a family of japanese card games) description: This is a library to represent the cards and the players of games in this family. It also implements one such game diff --git a/src/Hanafuda/KoiKoi/Yaku.hs b/src/Hanafuda/KoiKoi/Yaku.hs index b2246a1..2341411 100644 --- a/src/Hanafuda/KoiKoi/Yaku.hs +++ b/src/Hanafuda/KoiKoi/Yaku.hs @@ -79,7 +79,7 @@ finders = do inoshikacho = [Butterflies, Boar, Deer] aotan = [PeonyBlue, ChrysanthemumBlue, MapleBlue] 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 cards pack = do