From 482a5e4370890f4f60a65a7ebbd82e4f44455ebf Mon Sep 17 00:00:00 2001 From: Matei Adriel Date: Sun, 15 Dec 2019 02:31:59 +0200 Subject: [PATCH] fsharp(ygosim): fix: removed debug printfns Signed-off-by: prescientmoon --- fsharp/ygosim/src/Board.fs | 3 --- fsharp/ygosim/src/Program.fs | 2 +- 2 files changed, 1 insertion(+), 4 deletions(-) diff --git a/fsharp/ygosim/src/Board.fs b/fsharp/ygosim/src/Board.fs index 2f60637..1c1bee6 100644 --- a/fsharp/ygosim/src/Board.fs +++ b/fsharp/ygosim/src/Board.fs @@ -189,8 +189,6 @@ module Summon = let freeZones = 5 - possibleTributes + requiredTributes - printfn "%i" freeZones - requiredTributes <= possibleTributes && freeZones > 0 @@ -236,7 +234,6 @@ module Game = let toDeckBottom (card: CardInstance) (player: Player) = over Player.deck (fun d -> card :: d) player let handleMainPhase client board = - printfn "%b" <| canNormalSummon board if canNormalSummon board then performNormalSummon client board else board diff --git a/fsharp/ygosim/src/Program.fs b/fsharp/ygosim/src/Program.fs index 2c0237d..fcd9e47 100644 --- a/fsharp/ygosim/src/Program.fs +++ b/fsharp/ygosim/src/Program.fs @@ -25,7 +25,7 @@ race = Warrior }) - let board = over Board.firstPlayer <| toDeckBottom sampleCard <| emptyBoard + let board = over Board.secondPlayer <| toDeckBottom sampleCard <| emptyBoard let client action = match action with