captureHeuristics :: Move -> Move -> Ordering
captureHeuristics =
  comparing (Down . pieceValue . fromJust . view capturedPiece)
captureHeuristics :: Move -> Move -> Ordering
captureHeuristics =
  comparing (Down . pieceValue . fromJust . view capturedPiece)
captureHeuristics =
  comparing (Down . pieceValue . fromJust . view capturedPiece)