------------------------------------------------------------------------------
pawnSimpleChecks :: Board -> [ Move ]
pawnSimpleChecks b =
  let kp = [ offset (eKingPos b) (direction (b^.B.opponent) lr)
           | lr <- [ 7, 9]
           ]
  in pawnMoves b (\_ t -> F.any (== t) kp)
pawnSimpleChecks :: Board -> [ Move ]
pawnSimpleChecks b =
  let kp = [ offset (eKingPos b) (direction (b^.B.opponent) lr)
           | lr <- [ 7, 9]
           ]
  in pawnMoves b (\_ t -> F.any (== t) kp)
pawnSimpleChecks b =
  let kp = [ offset (eKingPos b) (direction (b^.B.opponent) lr)
           | lr <- [ 7, 9]
           ]
  in pawnMoves b (\_ t -> F.any (== t) kp)