libcxx_22806.cpp 640 B

123456789101112131415161718192021
  1. // Copyright Louis Dionne 2013-2017
  2. // Distributed under the Boost Software License, Version 1.0.
  3. // (See accompanying file LICENSE.md or copy at http://boost.org/LICENSE_1_0.txt)
  4. #include <boost/hana/chain.hpp>
  5. #include <boost/hana/ext/std/tuple.hpp>
  6. #include <boost/hana/functional/compose.hpp>
  7. #include <boost/hana/lift.hpp>
  8. #include <laws/base.hpp>
  9. #include <tuple>
  10. namespace hana = boost::hana;
  11. int main() {
  12. using M = hana::ext::std::tuple_tag;
  13. auto m = std::make_tuple(hana::test::ct_eq<0>{});
  14. auto f = hana::compose(hana::lift<M>, hana::test::_injection<0>{});
  15. hana::chain(m, hana::compose(hana::lift<M>, f));
  16. }