projects
/
platform
/
upstream
/
augeas.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Bump to 1.14.1
[platform/upstream/augeas.git]
/
tests
/
modules
/
pass_compose_func.aug
1
module Pass_Compose_Func =
2
3
(* string -> regexp *)
4
let f (x:string) = x . /[a-z]/
5
6
(* regexp -> lens *)
7
let g (x:regexp) = key x
8
9
(* string -> lens *)
10
let h = f ; g
11
12
let _ = h "a"