You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
411 B
15 lines
411 B
module Types where
|
|
|
|
import qualified Data.Text as T
|
|
|
|
data Source = Source {
|
|
sourceNick :: T.Text,
|
|
sourceUsername :: T.Text,
|
|
sourceHostmask :: T.Text
|
|
} deriving (Show)
|
|
|
|
data Message = Message {
|
|
ircSource :: Maybe Source,
|
|
ircCommand :: T.Text,
|
|
ircCommandArgs :: [T.Text]
|
|
} deriving (Show)
|
|
|