channelHasMode ::
  Identifier {- ^ channel -} ->
  Char       {- ^ mode    -} ->
  IrcConnection -> Bool
channelHasMode chan mode =
  has ( connChannels . ix chan
      . chanModes . folded . ix mode
      )
channelHasMode ::
  Identifier {- ^ channel -} ->
  Char       {- ^ mode    -} ->
  IrcConnection -> Bool
channelHasMode chan mode =
  has ( connChannels . ix chan
      . chanModes . folded . ix mode
      )
channelHasMode chan mode =
  has ( connChannels . ix chan
      . chanModes . folded . ix mode
      )