nickHasModeInChannel ::
  Identifier {- ^ nick    -} ->
  Char       {- ^ mode    -} ->
  Identifier {- ^ channel -} ->
  IrcConnection -> Bool
nickHasModeInChannel nick mode chan =
  elemOf ( connChannels . ix chan
         . chanUsers    . ix nick
         . folded)
         mode
nickHasModeInChannel ::
  Identifier {- ^ nick    -} ->
  Char       {- ^ mode    -} ->
  Identifier {- ^ channel -} ->
  IrcConnection -> Bool
nickHasModeInChannel nick mode chan =
  elemOf ( connChannels . ix chan
         . chanUsers    . ix nick
         . folded)
         mode
nickHasModeInChannel nick mode chan =
  elemOf ( connChannels . ix chan
         . chanUsers    . ix nick
         . folded)
         mode