-- Reporting bugs in darcs. See also impossible.h.moduleDarcs.Bug(_bug,_bugDoc,_impossible,_fromJust)whereimportPrinter(Doc,errorDoc,text,($$))typeBugStuff=(String,Int,String,String)_bug::BugStuff->String->a_bugbss=_bugDocbs(texts)_bugDoc::BugStuff->Doc->a_bugDocbss=errorDoc$text("bug at "++_bugLocbs)$$s$$text("See http://wiki.darcs.net/BugTracker/Reporting "++"for help on bug reporting.")_bugLoc::BugStuff->String_bugLoc(file,line,date,time)=file++":"++showline++" compiled "++time++" "++date_impossible::BugStuff->a_impossiblebs=_bugbs$"Impossible case at "++_bugLocbs_fromJust::BugStuff->Maybea->a_fromJustbsmx=casemxofNothing->_bugbs$"fromJust error at "++_bugLocbsJustx->x