-- | Set the supplied co-ordinates to White.
setWhite :: [(Int, Int)] -> Go R.DIM2 StandardPlayer ()
setWhite = flip setM (Just White) . map tupleToRepaCoords
setWhite :: [(Int, Int)] -> Go R.DIM2 StandardPlayer ()
setWhite = flip setM (Just White) . map tupleToRepaCoords
setWhite = flip setM (Just White) . map tupleToRepaCoords