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