diff options
Diffstat (limited to 'sec/encoding.ltx')
| -rw-r--r-- | sec/encoding.ltx | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sec/encoding.ltx b/sec/encoding.ltx index cfd7583..525568d 100644 --- a/sec/encoding.ltx +++ b/sec/encoding.ltx @@ -226,7 +226,7 @@ let compose (depth, heap) = let go = primrec depth with Zero => arb | Suc ih => fun index => - let x = map (fun x => ih (snoc xs x)) (heap index) in + let x = map (fun x => ih (snoc index x)) (heap index) in match x with Leaf f => f | Branch (f, g) => fun x => f (g x) |