From be3bb5300d30a19d22b68db07292d03dc16499d3 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Tue, 26 Dec 2023 16:11:04 -0600
Subject: Update TODO list

---
 lib/ast_types.ml | 1 -
 lib/fixture.ml   | 1 +
 lib/lexer.mll    | 1 -
 3 files changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/ast_types.ml b/lib/ast_types.ml
index 6a02040..fdcafd2 100644
--- a/lib/ast_types.ml
+++ b/lib/ast_types.ml
@@ -64,7 +64,6 @@ type ast_table_relation =
   | PTable of string * int *  Fixture.t list
   | CTable of (string * string) list * string * int * (Fixture.compiled -> Fixture.compiled list -> Fixture.t list)
   (** parent (name, referenced id), row, child_name, fixture builder given a parent name and list of options *)
-  (* TODO: Support multiple relations *)
   
 
 let table_name = function 
diff --git a/lib/fixture.ml b/lib/fixture.ml
index 21d77cf..4985624 100644
--- a/lib/fixture.ml
+++ b/lib/fixture.ml
@@ -88,6 +88,7 @@ let%test "random_value_in_list" =
 
 (* TODO: Support email *)
 (* TODO: Support "hashed" password *)
+(* TODO: Support dates *)
 (* TODO: Support variables using @ *)
 
 let rec replicate element n =
diff --git a/lib/lexer.mll b/lib/lexer.mll
index e733666..0fb7f7c 100644
--- a/lib/lexer.mll
+++ b/lib/lexer.mll
@@ -15,7 +15,6 @@ let id = ['a'-'z' 'A'-'Z' '-' '_']*
 let newline = '\r' | '\n' | "\r\n"
 let many_newline = newline+
 
-(* TODO: Support _ and - in identifiers *)
 rule read = 
   parse 
   | "uuidv4" { UUIDV4 }
-- 
cgit v1.2.3