discoverer :: Board -> BitBoard
discoverer b = discovererOrPinned b (b^.B.opponent) (b^.next)
discoverer :: Board -> BitBoard
discoverer b = discovererOrPinned b (b^.B.opponent) (b^.next)
discoverer b = discovererOrPinned b (b^.B.opponent) (b^.next)