From 20f7d7be13cd7869b338f98d1ab3fd33e8bbfb3e Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Thu, 27 Nov 2025 21:30:17 +0100 Subject: WIP user-specified custom types The big roadblock encountered is that accumulation wants addition of monoids to be elementwise float addition; this fundamentally clashes with the concept of a user type with a custom zero and plus. --- src/CHAD/AST.hs-boot | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 src/CHAD/AST.hs-boot (limited to 'src/CHAD/AST.hs-boot') diff --git a/src/CHAD/AST.hs-boot b/src/CHAD/AST.hs-boot new file mode 100644 index 0000000..d1b8a62 --- /dev/null +++ b/src/CHAD/AST.hs-boot @@ -0,0 +1,15 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE RoleAnnotations #-} +{-# LANGUAGE StandaloneKindSignatures #-} +module CHAD.AST where + +import Data.Functor.Const (Const) +import Data.Kind (Type) + +import CHAD.AST.Types.Ty + +type role Expr representational nominal nominal +type Expr :: (Ty -> Type) -> [Ty] -> Ty -> Type +data Expr x env t + +type Ex = Expr (Const ()) -- cgit v1.2.3-70-g09d2