blob: a0cadc3351c934a1be72bdd704814c0a7a3d4e40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module Message
( Message(..)
, Channel
, Nick
, textStr
) 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
}
textStr :: Message -> String
textStr = T.unpack . text
|
