diff options
Diffstat (limited to 'src/Data/Term/Zipper.idr')
| -rw-r--r-- | src/Data/Term/Zipper.idr | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Data/Term/Zipper.idr b/src/Data/Term/Zipper.idr index 09ba2c9..3f6668a 100644 --- a/src/Data/Term/Zipper.idr +++ b/src/Data/Term/Zipper.idr @@ -41,7 +41,8 @@ assoc (Op op i ts zip1) zip2 zip3 = cong (Op op i ts) (assoc zip1 zip2 zip3) -- Action ---------------------------------------------------------------------- -export +-- NOTE: should this be public? +public export (+) : Zipper sig n -> Term sig n -> Term sig n Top + t = t Op op i ts zip + t = Op op (insertAt i (zip + t) ts) |