------------------------------------------------------------------------------
pawnQuietMoves :: Board -> [ Move ]
pawnQuietMoves b = do
  (f, t, _) <- pawnAdvanceSquares b
  concatMap promote [ defaultMove f t Pawn (b^.next) ]


------------------------------------------------------------------------------
pawnQuietMoves :: Board -> [ Move ]
pawnQuietMoves b = do
  (f, t, _) <- pawnAdvanceSquares b
  concatMap promote [ defaultMove f t Pawn (b^.next) ]


------------------------------------------------------------------------------
pawnQuietMoves b = do
  (f, t, _) <- pawnAdvanceSquares b
  concatMap promote [ defaultMove f t Pawn (b^.next) ]


------------------------------------------------------------------------------