--wypisywanie mozliwych ruchów pionków
getDraughtMoves :: Board -> Position -> [(Board,Position)]
getDraughtMoves board (x,y) = [(move board (x,y) (a,b), (a,b)) | a <- [if ((isWhiteDraught board (x,y)) && (not $ isEmptyField board (x,y))) then (x-1) else if ((isBlackDraught board (x,y)) && (not $ isEmptyField board (x,y))) then (x+1) else 0], b <- [(y - 1),(y + 1)], isInside (a,b), isEmptyField board (a,b)]