hanabi-dealer-0.3.2.0: server.hs

import Game.Hanabi.Backend
import Game.Hanabi.VersionInfo

import Game.Hanabi.Strategies.SimpleStrategy hiding (main)

main = server defOpt{strategies=strs}

strs :: [(String, IO (DynamicStrategy IO))]
strs = [
     ("Stupid example strategy", return $ mkDS "Stupid example strategy" $ S ())
 -- x , ("Sontakki", return $ mkDS "Sontakki" (Sontakki emptyDefault))
  ]