aboutsummaryrefslogtreecommitdiff
path: root/editor/forms/validation.ml
blob: cda7db82abd8101c48eb948690733d80e680589b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
open Brr
open Note

type t = unit

let create
  : Jstr.t -> t Note.signal * El.t
  = fun message  ->
    let state = S.const () in


    ( state
    , El.txt message )