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