after.hs

respond' :: Config -> Message -> String -> (String, String) 
respond' cfg m reply = (sendTo, text)
    where
        senderNick = (IRC.Parser.nick (sender m))
        sendTo = if location m == (Config.nick cfg)
            then senderNick
            else location m

        text = if location m == (Config.nick cfg)
            then reply
            else senderNick ++ ": " ++ reply

respond :: Message -> String -> Bot ()
respond m r = asks config >>= \cfg -> uncurry privmsg $ respond' cfg m r