hanabi-dealer 0.7.1.0 → 0.7.1.1

raw patch · 7 files changed

+17/−12 lines, 7 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Game.Hanabi: shuffle :: RandomGen g => [a] -> g -> ([a], g)

+ Game.Hanabi: shuffle :: RandomGen g => [c] -> g -> ([c], g)

Files

ChangeLog.md +4/−0
Game/Hanabi.hs +1/−1
Game/Hanabi/Client.hs +8/−0
all.hs +1/−4
client.hs +1/−3
hanabi-dealer.cabal +1/−1
server.hs +1/−3

ChangeLog.md view

@@ -1,5 +1,9 @@ 	# Revision history for hanabi-dealer +	## 0.7.1.1 -- 2020-03-13++	* remove reference to a not-publicly-available strategy+ 	## 0.7.1.0 -- 2020-03-13  	* fix freeze after invalid move when played locally

Game/Hanabi.hs view

@@ -718,7 +718,7 @@ unknown :: GameSpec -> Possibilities unknown gs = (64 - bit (6 - numColors (rule gs)),  31) -shuffle :: RandomGen g => [a] -> g -> ([a], g)+shuffle :: RandomGen g => [c] -> g -> ([c], g) shuffle xs = shuf [] xs $ length xs shuf :: RandomGen g => [a] -> [a] -> Int -> g -> ([a], g) shuf result _  0 gen  = (result, gen)

Game/Hanabi/Client.hs view

@@ -35,6 +35,13 @@ client :: Game.Hanabi.Msg.Options -> IO () client options = clientJSM options #else++{-+When building with GHC,+1. miso has to be built with --flags="jsaddle" option;+2. the resulting executable does not work with Firefox or Konqueror---use Chromium. (https://github.com/aveltras/arohi-skeleton/issues/1)+-}+ # ifdef IOS import Language.Javascript.JSaddle.WKWebView as JSaddle @@ -64,6 +71,7 @@ jsmToApp f = jsaddleOr defaultConnectionOptions (f >> syncPoint) jsaddleApp # endif #endif+ -- Miso's implementation of WebSockets uses global IORef. -- https://github.com/dmjio/miso/blob/master/frontend-src/Miso/Subscription/WebSocket.hs

all.hs view

@@ -9,8 +9,6 @@ import Game.Hanabi.Msg(defaultOptions, Options(..))  import Game.Hanabi.Strategies.SimpleStrategy hiding (main)-import Game.Hanabi.Strategies.Ryunosuke hiding (main)- main :: IO () main = do putStrLn "localhost:8080"  -- Seemingly other port than 8080 does not work.           let opt = defaultOptions{version="hanabi-dealer quickbuilt server", strategies=strs}@@ -25,7 +23,6 @@  strs :: [(String, IO (DynamicStrategy IO))] strs = [-     ("Stupid example strategy", return $ mkDS "Stupid example strategy" S),-     ("Ryunosuke", return $ mkDS "Ryunosuke" Ry)+     ("Stupid example strategy", return $ mkDS "Stupid example strategy" $ S)  -- x , ("Sontakki", return $ mkDS "Sontakki" (Sontakki emptyDefault))   ]

client.hs view

@@ -2,13 +2,11 @@ import Game.Hanabi.Client  import Game.Hanabi.Strategies.SimpleStrategy hiding (main)-import Game.Hanabi.Strategies.Ryunosuke hiding (main)  main = client defOpt{strategies=strs}  -- strs :: [(String, IO (DynamicStrategy IO))] strs = [-     ("Stupid example strategy", return $ mkDS "Stupid example strategy" $ S),-     ("Ryunosuke", return $ mkDS "Ryunosuke" $ Ry)+     ("Stupid example strategy", return $ mkDS "Stupid example strategy" $ S)  -- x , ("Sontakki", return $ mkDS "Sontakki" (Sontakki emptyDefault))   ]

hanabi-dealer.cabal view

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.7.1.0+version:             0.7.1.1  -- A short (one-line) description of the package. synopsis:            Hanabi card game

server.hs view

@@ -2,13 +2,11 @@ import Game.Hanabi.VersionInfo  import Game.Hanabi.Strategies.SimpleStrategy hiding (main)-import Game.Hanabi.Strategies.Ryunosuke hiding (main)  main = server defOpt{strategies=strs}  strs :: [(String, IO (DynamicStrategy IO))] strs = [-     ("Stupid example strategy", return $ mkDS "Stupid example strategy" S),-     ("Ryunosuke", return $ mkDS "Ryunosuke" $ Ry)+     ("Stupid example strategy", return $ mkDS "Stupid example strategy" S)  -- x , ("Sontakki", return $ mkDS "Sontakki" (Sontakki emptyDefault))   ]