Upgrade to dune#13
Conversation
| let date ?(year = 0) ?(month = 0) ?(day = 0) = fun _ -> | ||
| Lit (Lit.Date { base_time with year; month; day }) | ||
| let datetime ?(year = 0) ?(month = 0) ?(day = 0) | ||
| ?(hour = 0) ?(minute = 0) ?(second = 0) = fun _ -> |
There was a problem hiding this comment.
Shouldn't you actually use that value in { base_time with ... instead of removing it?
There was a problem hiding this comment.
I removed it because it was unused. Good point tho.
|
Hi Thanks for the update, and sorry for the delay. Could you please do as @sagotch mentioned and use the You can try adding those, but it'll be a lot of work. For now I think we could instruct dune to ignore those warnings. After those changes I can merge the PR. |
(* let to_string : type a b. (a, b) t -> string = function
| Time (name, table) -> sprintf "%s.%s" (Table.name table) name
| Timestamp (name, table) -> sprintf "%s.%s" (Table.name table) name
| Date (name, table) -> sprintf "%s.%s" (Table.name table) name
| Datetime (name, table) -> sprintf "%s.%s" (Table.name table) name
| Enum (name, table, _) -> sprintf "%s.%s" (Table.name table) name
| Null.Time (name, table) -> sprintf "%s.%s" (Table.name table) name
| Null.Timestamp (name, table) -> sprintf "%s.%s" (Table.name table) name
| Null.Date (name, table) -> sprintf "%s.%s" (Table.name table) name
| Null.Datetime (name, table) -> sprintf "%s.%s" (Table.name table) name
| Null.Enum (name, table, _) -> sprintf "%s.%s" (Table.name table) name
| other -> to_string other *)
let to_string fld =
let t = table fld in
sprintf "%s.%s" (Table.name t) (name fld)
|
|
Were there any updates on this PR? Would be nice to get this merged. |
|
Unfortunately not. I was experimenting with this library and trying to make it work for me so I created this PR. I'm not sure I'll have time to finish this. |
Following PR makes the following changes:
dune upgradeNot sure if everything is correct. It was trial and error to get it working with new Reason +
esyproject.