19 lines
436 B
Haskell
19 lines
436 B
Haskell
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
|