package ppx_quick_test

  1. Overview
  2. Docs

Source file ppx_quick_test_expander.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open! Base

let expand ~loc ~pattern ~expression ~attributes =
  let parsed_let_expression =
    Quick_test_let_expression.parse
      ~loc
      ~pattern
      ~expression
      ~value_binding_attributes:attributes
  in
  Quick_test_let_expression.expand parsed_let_expression
;;

let enclose_impl loc = Quick_test_header_footer.expand_enclose_impl loc