From 5a1586d0a5745da547254558e8f1de8e2a94c469 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Fri, 31 Jul 2020 19:39:40 +0200
Subject: Shuffling

---
 server/lib/Cafp/Messages.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'server/lib/Cafp/Messages.hs')

diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs
index 1b37380..aae49cc 100644
--- a/server/lib/Cafp/Messages.hs
+++ b/server/lib/Cafp/Messages.hs
@@ -14,9 +14,9 @@ import           Data.Text   (Text)
 import           Data.Vector (Vector)
 import           Elm.Derive
 
-data BlackCard = BlackCard Int deriving (Show)
+data BlackCard = BlackCard Int deriving (Eq, Show)
 
-data WhiteCard = WhiteCard Int deriving (Show)
+data WhiteCard = WhiteCard Int deriving (Eq, Show)
 
 data Cards = Cards
     { cardsBlack        :: Vector Text
-- 
cgit v1.2.3