some optimizations

2020-03-01 21:35:23 +01:00
parent 5846a22d8a
commit 672746e302
18 changed files with 336 additions and 192 deletions
@@ -15,4 +15,4 @@ instance Player Stupid where
        trumpCol <- trumpColour
        turnCol <- turnColour
        let possible = filter (isAllowed trumpCol turnCol hand) hand
-        return (head possible, p)
+        return (toCard $ head possible, p)