diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-11-08 20:29:29 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-11-08 20:29:29 +0100 |
| commit | 4fcdb7118e0084f192753ea6c70394352a27d5ed (patch) | |
| tree | c5e91ae438b6f4c3e5075bf591e5fbe28aa5d96b /src/AST/Count.hs | |
| parent | 83692cf41f76272423445c9cbbad65561ee3b50c (diff) | |
Custom derivatives
Diffstat (limited to 'src/AST/Count.hs')
| -rw-r--r-- | src/AST/Count.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/AST/Count.hs b/src/AST/Count.hs index d365218..364773a 100644 --- a/src/AST/Count.hs +++ b/src/AST/Count.hs @@ -125,7 +125,7 @@ occCountGeneral onehot unpush alter many = go WId EIdx _ a b -> re a <> re b EShape _ e -> re e EOp _ _ e -> re e - ECustom _ _ _ _ _ _ a b -> re a <> re b + ECustom _ _ _ _ _ _ _ a b -> re a <> re b EWith a b -> re a <> re1 b EAccum _ a b e -> re a <> re b <> re e EZero _ -> mempty |