diff options
Diffstat (limited to 'src/CHAD/ForwardAD/DualNumbers.hs')
| -rw-r--r-- | src/CHAD/ForwardAD/DualNumbers.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/CHAD/ForwardAD/DualNumbers.hs b/src/CHAD/ForwardAD/DualNumbers.hs index 540ec2b..4a07a2d 100644 --- a/src/CHAD/ForwardAD/DualNumbers.hs +++ b/src/CHAD/ForwardAD/DualNumbers.hs @@ -200,10 +200,14 @@ dfwdDN = \case EFold1InnerD1{} -> err_targetlang "EFold1InnerD1" EFold1InnerD2{} -> err_targetlang "EFold1InnerD2" + + EUser{} -> err_user "EUser" + EUnUser{} -> err_user "EUnUser" where err_accum = error "Accumulator operations unsupported in the source program" err_monoid = error "Monoid operations unsupported in the source program" err_targetlang s = error $ "Target language operation " ++ s ++ " not supported in source program" + err_user s = error $ "User types not yet supported in forward AD (" ++ s ++ ")" deriv_extremum :: ScalIsNumeric t ~ True => (forall env'. Ex env' (TArr (S n) (TScal t)) -> Ex env' (TArr n (TScal t))) |