将输入字段聚焦在React组件中 - 尝试创建ref时出现类型错误

Question

我有一个包含文本<input>元素的React组件。安装组件时，我希望在输入字段中设置文本光标，即我希望文本输入元素具有焦点。

在“传统的”javascript React组件中，我将通过ref获取输入字段的DOM元素，然后调用其focus方法。

我已经阅读了这篇文档，解释了如何在Reason-React中使用引用：https://github.com/reasonml/reason-react/blob/master/docs/react-ref.md

唉，这个页面上包含的代码示例是针对自定义组件的引用，它只提到它也适用于React DOM元素。

所以我试图将示例代码转换为React DOM元素，这是我到目前为止所尝试的：

type state = {
  text: string,
  inputElement: ref(option(Dom.element))
};

let valueFromEvent = (evt) : string => (
  evt
  |> ReactEventRe.Form.target
  |> ReactDOMRe.domElementToObj
)##value;

let component = ReasonReact.reducerComponent("EditTodoField");

let setInputElement = (theRef, {ReasonReact.state}) =>
  state.inputElement := Js.Nullable.to_opt(theRef);

let make = (~initialText, ~onSubmit, _) => {
  ...component,
  initialState: () => {text: initialText, inputElement: ref(None)},
  reducer: (newText, state) => ReasonReact.Update({...state, text: newText}),
  render: ({state: {text}, reduce, handle}) =>
    <input
      value=text
      _type="text"
      ref=(handle(setInputElement))
      placeholder="Todo description"
      onChange=(reduce((evt) => valueFromEvent(evt)))
      onKeyDown=(
        (evt) =>
          if (ReactEventRe.Keyboard.key(evt) == "Enter") {
            onSubmit(text);
            (reduce(() => ""))()
          } else if (ReactEventRe.Keyboard.key(evt) == "Escape") {
            onSubmit(initialText);
            (reduce(() => ""))()
          }
      )
    />
};

我得到的错误信息是这样的：

We've found a bug for you!
/Users/pahund/git/todo-list-reason-react/src/EditTodoField.re 21:11-35

19 ┆ value=text
20 ┆ _type="text"
21 ┆ ref=(handle(setInputElement))
22 ┆ placeholder="Todo description"
23 ┆ onChange=(reduce((evt) => valueFromEvent(evt)))

This has type:
  ReasonReact.Callback.t(Js.Nullable.t(Dom.element)) (defined as
    (Js.Nullable.t(Dom.element)) => unit)
But somewhere wanted:
  (Js.null(Dom.element)) => unit

The incompatible parts:
  Js.Nullable.t(Dom.element) (defined as Js.nullable(Dom.element))
  vs
  Js.null(Dom.element)

我知道问题可能在于我如何定义代码开头的状态类型，对于DOM元素而言，它与自定义组件的不同。

这里修复bug的正确类型定义是什么？

完整的项目可以在GitHub上找到：https://github.com/pahund/todo-list-reason-react/tree/ref-problem