module Network.FastIRC.Users
( UserSpec(..),
showUserSpec,
userParser )
where
import qualified Data.ByteString.Char8 as B
import Control.Applicative
import Control.Monad
import Data.Attoparsec.Char8 as P
import Network.FastIRC.ServerSet
import Network.FastIRC.Types
import Network.FastIRC.Utils
data UserSpec
= Nick NickName
| User NickName UserName HostName
| Server ServerName
deriving (Eq, Read, Show)
showUserSpec :: UserSpec -> MsgString
showUserSpec (Nick n) = n
showUserSpec (User n u h) = B.concat [ n, B.cons '!' u, B.cons '@' h ]
showUserSpec (Server sh) = sh
userParser :: ServerSet -> Parser UserSpec
userParser servers =
try server <|> try full <|> nickOnly
where
server :: Parser UserSpec
server = do
srv <- P.takeWhile1 isIRCTokChar
guard $ srv `isServer` servers
return (Server srv)
full :: Parser UserSpec
full =
User <$> P.takeWhile1 isNickChar <* char '!'
<*> P.takeWhile1 isUserChar <* char '@'
<*> P.takeWhile1 isHostChar
nickOnly :: Parser UserSpec
nickOnly = Nick <$> P.takeWhile1 isNickChar