server/lib/Cafp/Messages.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE TemplateHaskell #-}
module Cafp.Messages
    ( ServerMessage (..)
    ) where

import           Elm.Derive

data ServerMessage
    = Welcome Int
    | Bye
    deriving (Show)

deriveBoth defaultOptions ''ServerMessage