Up
module
Fake
:
sig
#
val
app :
Parsetree
.
expression
->
Parsetree
.
expression
->
Parsetree
.
expression
#
val
pat_app :
Parsetree
.
expression
->
'a *
Parsetree
.
expression
->
'a *
Parsetree
.
expression
#
val
any_val' :
Parsetree
.
expression
#
module
Lwt :
sig
#
val
un_lwt :
Parsetree
.
expression
#
val
to_lwt :
Parsetree
.
expression
#
val
in_lwt :
Parsetree
.
expression
#
val
unit_lwt :
Parsetree
.
expression
#
val
un_stream :
Parsetree
.
expression
#
val
finally' :
Parsetree
.
expression
#
val
raise_lwt' :
Longident
.
t
end
#
module
Js :
sig
#
val
un_js :
Parsetree
.
expression
#
val
un_meth :
Parsetree
.
expression
#
val
un_constr :
Parsetree
.
expression
#
val
un_prop :
Parsetree
.
expression
end
#
module
OUnit :
sig
#
val
fresh_test_module_ident : unit
->
string
#
val
force_bool :
Parsetree
.
expression
#
val
force_unit :
Parsetree
.
expression
#
val
force_unit_arrow_unit :
Parsetree
.
expression
#
val
force_indexed :
Parsetree
.
expression
end
#
type
tydecl = string
Location
.
loc
*
Parsetree
.
type_declaration
#
module
TypeWith :
sig
#
type
generator = string
#
val
generate_definitions : ty:
tydecl
list
->
?ghost_loc:
Location
.
t
->
generator
list
->
Parsetree
.
structure_item
list
#
val
generate_sigs : ty:
tydecl
list
->
?ghost_loc:
Location
.
t
->
generator
list
->
Parsetree
.
signature_item
list
end
#
module
Nonrec :
sig
#
val
add : string
Location
.
loc
->
string
Location
.
loc
#
val
is : string
->
bool
#
val
drop : string
->
string
#
val
ident_drop :
Ident
.
t
->
Ident
.
t
end
#
module
Custom_printf :
sig
#
val
bang :
Lexing
.
position
->
Lexing
.
position
->
Parsetree
.
expression
->
Parsetree
.
expression
option
end
end