introduce stack build system and restructure code

src/Skat/Player/Utils.hs

@@ -0,0 +1,18 @@
+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