lambdabot-4.3: src/Lambdabot/ChanName.hs

module Lambdabot.ChanName
    ( ChanName
    , mkCN
    , getCN
    ) where

import Lambdabot.Nick

import Control.Applicative
import Data.Char

newtype ChanName = ChanName Nick -- always lowercase
  deriving (Eq, Ord)

mkCN :: Nick -> ChanName
mkCN = ChanName . liftA2 Nick nTag (map toLower . nName)

getCN :: ChanName -> Nick
getCN (ChanName n) = n