eventHandler :: ClockTime -> Event -> Bot ()
eventHandler start (EvtPrivmsg m)
  | "!uptime" == mMsg m = do { irc  <- asks ircConn
                             ; now  <- liftIO getClockTime
                             ; dest <- liftIO $ getDest irc m
                             ; sayPrivmsg dest (tobs $ pretty (diffClockTimes now start))
                             }
  | otherwise           = return ()
eventHandler :: ClockTime -> Event -> Bot ()
eventHandler start (EvtPrivmsg m)
  | "!uptime" == mMsg m = do { irc  <- asks ircConn
                             ; now  <- liftIO getClockTime
                             ; dest <- liftIO $ getDest irc m
                             ; sayPrivmsg dest (tobs $ pretty (diffClockTimes now start))
                             }
  | otherwise           = return ()
eventHandler start (EvtPrivmsg m)
  | "!uptime" == mMsg m = do { irc  <- asks ircConn
                             ; now  <- liftIO getClockTime
                             ; dest <- liftIO $ getDest irc m
                             ; sayPrivmsg dest (tobs $ pretty (diffClockTimes now start))
                             }
  | otherwise           = return ()