summaryrefslogtreecommitdiffstats
path: root/sca-cpp/trunk/kernel/monad.hpp
diff options
context:
space:
mode:
Diffstat (limited to 'sca-cpp/trunk/kernel/monad.hpp')
-rw-r--r--sca-cpp/trunk/kernel/monad.hpp5
1 files changed, 5 insertions, 0 deletions
diff --git a/sca-cpp/trunk/kernel/monad.hpp b/sca-cpp/trunk/kernel/monad.hpp
index d87a382ee1..34e39c72d9 100644
--- a/sca-cpp/trunk/kernel/monad.hpp
+++ b/sca-cpp/trunk/kernel/monad.hpp
@@ -282,6 +282,11 @@ template<typename V, typename F> const failable<V, F> mkfailure(const F& f) {
os << f;
if (length(str(os)) != 0)
debug(f, "failable::mkfailure");
+#else
+ ostringstream os;
+ os << f;
+ if (length(str(os)) != 0)
+ cfailure << "failable::mkfailure" << ": " << f << endl;
#endif
return failable<V, F>(false, f);
}