module KoiKoi where import CCard data Player = Player { hand :: Pack , captured :: Pack } data State = State { players :: (Player, Player) , river :: Pack , deck :: [ Card ] , turn :: Bool }