Update quickjs to 0.1.2

CHANGES.md

@@ -1,5 +1,8 @@
 # Changes
 
+## 0.3.1
+* Update quickjs dependency to 0.1.2 by @davesnx
+
 ## 0.3.0
 
 * browser-ppx: process stritems by @jchavarri in https://github.com/ml-in-barcelona/server-reason-react/pull/127

demo/server/dune

@@ -2,9 +2,11 @@
  (name server)
  (enabled_if
   (= %{profile} "dev"))
+ (flags :standard -w -26-27) ; browser_only removes code form the server, making this warning necessary
  (libraries
   tiny_httpd
   tiny_httpd.core
+  tiny_httpd.unix
   shared_native
   react
   reactDOM

demo/server/server.re

@@ -6,15 +6,15 @@
 
 */
 module Httpd = Tiny_httpd;
-module Httpd_dir = Tiny_httpd_dir;
+module Httpd_dir = Tiny_httpd.Dir;
 
 module Link = {
   [@react.component]
   let make = (~href, ~children) => {
-    let (useState, setState) = React.useState(() => false);
+    let (state, setState) = React.useState(() => false);
 
     React.useEffect0(() => {
-      setState(_prev => !useState);
+      setState(_prev => !state);
 
       None;
     });

dune-project

@@ -31,7 +31,7 @@
 
   ; Library dependencies
   (ppxlib (> 0.23.0))
-  (quickjs (>= 0.1.1))
+  (quickjs (>= 0.1.2))
   (promise (>= 1.1.2))
   (lwt (>= 5.6.0))
   (lwt_ppx (>= 2.1.0))

packages/melange.js/Js.ml

@@ -493,10 +493,18 @@ end = struct
   let index : result -> int = Quickjs.RegExp.index
   let input : result -> string = Quickjs.RegExp.input
   let source : t -> string = Quickjs.RegExp.source
-  let fromString : string -> t = fun str -> Quickjs.RegExp.compile str ""
+
+  let fromString : string -> t =
+   fun str ->
+    match Quickjs.RegExp.compile str ~flags:"" with
+    | Ok regex -> regex
+    | Error (_, msg) -> raise (Invalid_argument msg)
 
   let fromStringWithFlags : string -> flags:string -> t =
-   fun str ~flags -> Quickjs.RegExp.compile str flags
+   fun str ~flags ->
+    match Quickjs.RegExp.compile str ~flags with
+    | Ok regex -> regex
+    | Error (_, msg) -> raise (Invalid_argument msg)
 
   let flags : t -> string = fun regexp -> Quickjs.RegExp.flags regexp
   let global : t -> bool = fun regexp -> Quickjs.RegExp.global regexp

server-reason-react.opam

@@ -12,7 +12,7 @@ depends: [
   "reason" {>= "3.10.0"}
   "melange" {>= "3.0.0"}
   "ppxlib" {> "0.23.0"}
-  "quickjs" {>= "0.1.1"}
+  "quickjs" {>= "0.1.2"}
   "promise" {>= "1.1.2"}
   "lwt" {>= "5.6.0"}
   "lwt_ppx" {>= "2.1.0"}