import Game.Hanabi.VersionInfo 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) -- x , ("Sontakki", return $ mkDS "Sontakki" (Sontakki emptyDefault)) ]