import Darcs.Bug

#define darcsBug (\imp_funny_name -> imp_funny_name (__FILE__,__LINE__,__TIME__,__DATE__))

#define bug        (darcsBug _bug)
#define bugLoc     (darcsBug _bugLoc)
#define withBugLoc (darcsBug _withBugLoc)
#define impossible (darcsBug _impossible)
#define fromJust   (darcsBug _fromJust)
#define bugDoc     (darcsBug _bugDoc)