From 49b346b7ebe98051a618d88a39d9b02f13edf33c Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Wed, 29 Jul 2020 21:14:12 +0200
Subject: Welcome Bye

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

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

diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs
index e3c28fe..bde199d 100644
--- a/server/lib/Cafp/Messages.hs
+++ b/server/lib/Cafp/Messages.hs
@@ -1,7 +1,13 @@
+{-# LANGUAGE TemplateHaskell #-}
 module Cafp.Messages
     ( ServerMessage (..)
     ) where
 
+import           Elm.Derive
+
 data ServerMessage
     = Welcome
+    | Bye
     deriving (Show)
+
+deriveBoth defaultOptions ''ServerMessage
-- 
cgit v1.2.3