Skip to content

Instantly share code, notes, and snippets.

@jdiez17

jdiez17/a.hs

Created December 15, 2014 18:11
Show Gist options
  • Save jdiez17/99b99d378128d9e53e18 to your computer and use it in GitHub Desktop.
Save jdiez17/99b99d378128d9e53e18 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
a.hs
data Message = Message {
sender :: String
, command :: Command
, location :: String
, payload :: String
} deriving (Show)
data Ping = Ping {
response :: String
} deriving (Show)
data Sequence = M Message | P Ping
Raw
b.hs
data Sequence = Message {
sender :: String
, command :: Command
, location :: String
, payload :: String
} | Ping {
response :: String
} deriving (Show)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment