Logo Search packages:      
Sourcecode: darcs version File versions

impossible.h

import DarcsUtils ( bug )
#define impossible (bug $ "Impossible case at "++__FILE__++":"++show (__LINE__ :: Int)++" compiled "++__TIME__++" "++__DATE__)

#define fromJust (\m -> case m of {Nothing -> bug ("fromJust error at "++__FILE__++":"++show (__LINE__ :: Int)++" compiled "++__TIME__++" "++__DATE__); Just x -> x})

Generated by  Doxygen 1.6.0   Back to index