hanabi-dealer-0.7.0.0: client.hs

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))
  ]