src/Message.hs


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

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

import qualified Data.Text as T

type Channel = T.Text

type Nick = T.Text

data Message = Message
    { text    :: T.Text
    , channel :: Channel
    , nick    :: Nick
    }