src/Message.hs


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

module Message
    ( Message(..)
    , Channel
    , Nick
    ) where

type Channel = String

type Nick = String

data Message = Message
    { text    :: String
    , channel :: Channel
    , nick    :: Nick
    }