44 lines
1.3 KiB
Haskell
44 lines
1.3 KiB
Haskell
{-# LANGUAGE DeriveDataTypeable #-}
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Network.IRC.Handlers.Tell.Types where
|
|
|
|
import ClassyPrelude
|
|
import Data.Data (Data)
|
|
import Data.IxSet (IxSet, Indexable (..), ixSet, ixFun)
|
|
import Data.SafeCopy (base, deriveSafeCopy)
|
|
|
|
import Network.IRC.Handlers.NickTracker.Types
|
|
import Network.IRC.Types
|
|
|
|
newtype TellId = TellId Int deriving (Eq, Ord, Show, Data, Typeable, Num)
|
|
data TellStatus = NewTell | DeliveredTell deriving (Eq, Ord, Show, Data, Typeable)
|
|
|
|
data Tell = Tell {
|
|
tellId :: !TellId,
|
|
tellFromNick :: !Nick,
|
|
tellToNick :: !CanonicalNick,
|
|
tellTopic :: !(Maybe Text),
|
|
tellStatus :: !TellStatus,
|
|
tellCreatedOn :: !UTCTime,
|
|
tellDeliveredOn :: !(Maybe UTCTime),
|
|
tellContent :: !Text
|
|
} deriving (Eq, Ord, Show, Data, Typeable)
|
|
|
|
instance Indexable Tell where
|
|
empty = ixSet [ ixFun $ (: []) . tellId
|
|
, ixFun $ (: []) . tellToNick
|
|
, ixFun $ (: []) . tellStatus ]
|
|
|
|
data Tells = Tells { nextTellId :: TellId, tells :: IxSet Tell }
|
|
deriving (Eq, Ord, Show, Data, Typeable)
|
|
|
|
$(deriveSafeCopy 0 'base ''TellId)
|
|
$(deriveSafeCopy 0 'base ''TellStatus)
|
|
$(deriveSafeCopy 0 'base ''Tell)
|
|
$(deriveSafeCopy 0 'base ''Tells)
|
|
|
|
emptyTells :: Tells
|
|
emptyTells = Tells (TellId 1) empty
|