summaryrefslogtreecommitdiff
path: root/boost/hana/concept/monad_plus.hpp
diff options
context:
space:
mode:
Diffstat (limited to 'boost/hana/concept/monad_plus.hpp')
-rw-r--r--boost/hana/concept/monad_plus.hpp12
1 files changed, 7 insertions, 5 deletions
diff --git a/boost/hana/concept/monad_plus.hpp b/boost/hana/concept/monad_plus.hpp
index 22c67ca255..c561e5af82 100644
--- a/boost/hana/concept/monad_plus.hpp
+++ b/boost/hana/concept/monad_plus.hpp
@@ -16,16 +16,18 @@ Distributed under the Boost Software License, Version 1.0.
#include <boost/hana/config.hpp>
#include <boost/hana/core/default.hpp>
#include <boost/hana/core/tag_of.hpp>
+#include <boost/hana/detail/integral_constant.hpp>
#include <boost/hana/empty.hpp>
BOOST_HANA_NAMESPACE_BEGIN
template <typename M>
- struct MonadPlus {
- using Tag = typename tag_of<M>::type;
- static constexpr bool value = !is_default<concat_impl<Tag>>::value &&
- !is_default<empty_impl<Tag>>::value;
- };
+ struct MonadPlus
+ : hana::integral_constant<bool,
+ !is_default<concat_impl<typename tag_of<M>::type>>::value &&
+ !is_default<empty_impl<typename tag_of<M>::type>>::value
+ >
+ { };
BOOST_HANA_NAMESPACE_END
#endif // !BOOST_HANA_CONCEPT_MONAD_PLUS_HPP