isBlocking player (Just piece) = maybe True (/= player) (getPlayer piece)
isBlocking player (Just piece) = maybe True (/= player) (getPlayer piece)
isBlocking player (Just piece) = maybe True (/= player) (getPlayer piece)