diff options
Diffstat (limited to 'src/CHAD/ForwardAD')
| -rw-r--r-- | src/CHAD/ForwardAD/DualNumbers.hs | 4 | ||||
| -rw-r--r-- | src/CHAD/ForwardAD/DualNumbers/Types.hs | 1 |
2 files changed, 5 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))) diff --git a/src/CHAD/ForwardAD/DualNumbers/Types.hs b/src/CHAD/ForwardAD/DualNumbers/Types.hs index 5d5dd9e..6dcef1c 100644 --- a/src/CHAD/ForwardAD/DualNumbers/Types.hs +++ b/src/CHAD/ForwardAD/DualNumbers/Types.hs @@ -42,6 +42,7 @@ dn (STScal t) = case t of STI64 -> STScal STI64 STBool -> STScal STBool dn STAccum{} = error "Accum in source program" +dn STUser{} = error "User types not yet supported in forward AD" dne :: SList STy env -> SList STy (DNE env) dne SNil = SNil |