1 2 3 4 5 6 7
module Cafp.Messages ( ServerMessage (..) ) where data ServerMessage = Welcome deriving (Show)