Reimplemented AdjacencyList with Map_Ext and Set_Ext

Author: dsiu

src/StdlibFp.res

@@ -71,3 +71,7 @@ module Set = Stdlib__Set
 module Option = Stdlib__Option
 module List = Stdlib__List
 module Result = Stdlib__Result
+
+// my extensions
+module Serializable = Stdlib__Serializable
+module JSONSerializable = Stdlib__JSONSerializable

src/StdlibFp.res.mjs

@@ -43,6 +43,10 @@ let List;
 
 let Result;
 
+let Serializable;
+
+let JSONSerializable;
+
 export {
   Tablecloth,
   $$Function,
@@ -65,5 +69,7 @@ export {
   Option,
   List,
   Result,
+  Serializable,
+  JSONSerializable,
 }
 /* No side effect */

src/Stdlib__Map_Ext.res

@@ -3,6 +3,8 @@ module JSONSerializable = Stdlib__JSONSerializable
 
 module type S = {
   type key
+
+  // these types are from Core__Map
   type t<'k, 'v>
   let make: unit => t<_, 'v>
 
@@ -32,6 +34,7 @@ module type T = {
 
 module MakeWithPrimitive = (T: T): (S with type key = T.t) => {
   type key = T.t
+
   type t<'k, 'v> = Map.t<key, 'v>
 
   let make = Map.make
@@ -58,6 +61,7 @@ module MakeWithPrimitive = (T: T): (S with type key = T.t) => {
 
 module Make = (Serializable: Serializable.S): (S with type key = Serializable.t) => {
   type key = Serializable.t
+
   type t<'k, 'v> = Map.t<string, 'v>
 
   let make: unit => t<'k, 'v> = Map.make

src/Stdlib__Serializable.res

@@ -73,3 +73,10 @@ module MakeTuple3 = (A: JSONSerializable.S, B: JSONSerializable.S, C: JSONSerial
 
   let fromStringUnsafe = str => str->fromString->Option.getExn
 }
+
+module String = {
+  type t = string
+  let toString = s => s
+  let fromString = s => Some(s)
+  let fromStringUnsafe = s => s
+}

src/Stdlib__Serializable.res.mjs

@@ -72,12 +72,31 @@ function MakeTuple3(A) {
   });
 }
 
+function toString(s) {
+  return s;
+}
+
+function fromString(s) {
+  return Primitive_option.some(s);
+}
+
+function fromStringUnsafe(s) {
+  return s;
+}
+
+let $$String = {
+  toString: toString,
+  fromString: fromString,
+  fromStringUnsafe: fromStringUnsafe
+};
+
 let JSONSerializable;
 
 export {
   JSONSerializable,
   MakeArray,
   MakeTuple2,
   MakeTuple3,
+  $$String,
 }
 /* No side effect */