doPRIVMSG :: IrcMessage -> Base ()
doPRIVMSG msg = do
--  now <- io getClockTime
--  io $ appendFile (File.findFile "log") $ ppr now
    ignored <- lift $ checkIgnore msg
    if ignored
      then lift $ doIGNORE msg
      else mapM_ (doPRIVMSG' (lambdabotName msg) msg) targets
  where
    alltargets = head (body msg)
    targets = map (readNick msg) $ split "," alltargets
--  where
--    ppr now = concat [ timeStamp now, " ", "<", (nick msg), " ", (fullName msg), " #"
--                     , (concat . intersperse ","  $ channels msg) ,  "> "
--                     , (tail . concat . intersperse " " . tail) (body msg), "\n"]

--
-- | What does the bot respond to?
--
doPRIVMSG :: IrcMessage -> Base ()
doPRIVMSG msg = do
--  now <- io getClockTime
--  io $ appendFile (File.findFile "log") $ ppr now
    ignored <- lift $ checkIgnore msg
    if ignored
      then lift $ doIGNORE msg
      else mapM_ (doPRIVMSG' (lambdabotName msg) msg) targets
  where
    alltargets = head (body msg)
    targets = map (readNick msg) $ split "," alltargets
--  where
--    ppr now = concat [ timeStamp now, " ", "<", (nick msg), " ", (fullName msg), " #"
--                     , (concat . intersperse ","  $ channels msg) ,  "> "
--                     , (tail . concat . intersperse " " . tail) (body msg), "\n"]

--
-- | What does the bot respond to?
--
doPRIVMSG msg = do
--  now <- io getClockTime
--  io $ appendFile (File.findFile "log") $ ppr now
    ignored <- lift $ checkIgnore msg
    if ignored
      then lift $ doIGNORE msg
      else mapM_ (doPRIVMSG' (lambdabotName msg) msg) targets
  where
    alltargets = head (body msg)
    targets = map (readNick msg) $ split "," alltargets
--  where
--    ppr now = concat [ timeStamp now, " ", "<", (nick msg), " ", (fullName msg), " #"
--                     , (concat . intersperse ","  $ channels msg) ,  "> "
--                     , (tail . concat . intersperse " " . tail) (body msg), "\n"]

--
-- | What does the bot respond to?
--