module Skat.Player.Utils (
    isAllowed, isTrump
) where

import Skat.Player
import qualified Skat.Card as C
import Skat.Card (Card)

isAllowed :: MonadPlayer m => [Card] -> Card -> m Bool
isAllowed hand card = do
    trCol <- trumpColour
    turnCol <- turnColour
    return $ C.isAllowed trCol turnCol hand card

isTrump :: MonadPlayer m => Card -> m Bool
isTrump card = do
    trCol <- trumpColour
    return $ C.isTrump trCol card