respondToWHOISUSER (SNumeric _ 319 [_,n,chanL]) = do
    chrs <- getGlobal' statusChars
    let toSC (x:xs) = if x `elem` chrs then (makeChannel xs,x) else (makeChannel $ x:xs,' ')
        sCL = map toSC . splitOn " " $ chanL
    modGlobal whoisTempReplies $ map (\(n',u) -> if n'==n then (n', u {statusCharL=sCL}) else (n',u))
respondToWHOISUSER (SNumeric _ 319 [_,n,chanL]) = do
    chrs <- getGlobal' statusChars
    let toSC (x:xs) = if x `elem` chrs then (makeChannel xs,x) else (makeChannel $ x:xs,' ')
        sCL = map toSC . splitOn " " $ chanL
    modGlobal whoisTempReplies $ map (\(n',u) -> if n'==n then (n', u {statusCharL=sCL}) else (n',u))
respondToWHOISUSER (SNumeric _ 319 [_,n,chanL]) = do
    chrs <- getGlobal' statusChars
    let toSC (x:xs) = if x `elem` chrs then (makeChannel xs,x) else (makeChannel $ x:xs,' ')
        sCL = map toSC . splitOn " " $ chanL
    modGlobal whoisTempReplies $ map (\(n',u) -> if n'==n then (n', u {statusCharL=sCL}) else (n',u))