second-transfer-0.10.0.1: macros/instruments.cpphs

#ifdef ENABLE_DEBUG

#define INSTRUMENTATION(x)   (liftIO $ logWithExclusivity (x))
#define LOGIT_SWITCH_TIMINGS 1

#else

#define INSTRUMENTATION(x)   (return ())
#define LOGIT_SWITCH_TIMINGS 0

#endif


#ifdef SECONDTRANSFER_MONITORING

import qualified SecondTransfer.MainLoop.DebugMonitor as DeMit

#define REPORT_EVENT(evname)  (DeMit.incCounter evname)
#define LIO_REPORT_EVENT(evname) (liftIO . DeMit.incCounter $ evname )

#else

#define IMPORT_MONITORING
#define REPORT_EVENT(evname)
#define LIO_REPORT_EVENT(evname)

#endif