Absolute bare-bones support for generics in cata (#101)

2025-10-06 04:28:42 +00:00 · 2024-02-19 00:57:14 +00:00
parent 3209372b5b
commit 7b49505064
13 changed files with 648 additions and 372 deletions
--- a/ConsumePlugin/FSharpForFunAndProfitCata.fs
+++ b/ConsumePlugin/FSharpForFunAndProfitCata.fs
@@ -50,19 +50,3 @@ type Gift =
    | Wrapped of Gift * WrappingPaperStyle
    | Boxed of Gift
    | WithACard of Gift * message : string
-
-[<CreateCatamorphism "MyListCata">]
-type MyList =
-    | Nil
-    | Cons of ConsCase
-
-and ConsCase =
-    {
-        Head : int
-        Tail : MyList
-    }
-
-[<CreateCatamorphism "MyList2Cata">]
-type MyList2 =
-    | Nil
-    | Cons of int * MyList2