blob: bde199d21e5c9a4f74a6ee6839bf50a3fd1da8d9 (
plain)
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
| Bye
deriving (Show)
deriveBoth defaultOptions ''ServerMessage
|