diff --git a/.vscode/settings.json b/.vscode/settings.json
new file mode 100644
index 0000000..c3bb9b3
--- /dev/null
+++ b/.vscode/settings.json
@@ -0,0 +1,6 @@
+{
+	"ocaml.sandbox": {
+		"kind": "opam",
+		"switch": "4.06.1"
+	}
+}
\ No newline at end of file
diff --git a/bsconfig.json b/bsconfig.json
index 8980bab..da7e821 100644
--- a/bsconfig.json
+++ b/bsconfig.json
@@ -1,20 +1,20 @@
 {
-	"name": "reason-design-patterns",
-	"version": "0.1.0",
-	"sources": {
-		"dir": "patterns",
-		"subdirs": true
-	},
-	"ignored-dirs": [ "patterns/interpreter" ],
-	"package-specs": {
-		"module": "commonjs",
-		"in-source": true
-	},
-	"suffix": ".bs.js",
-	"bs-dependencies": [],
-	"warnings": {
-		"error": "+101"
-	},
-	"namespace": true,
-	"refmt": 3
+  "name": "reason-design-patterns",
+  "version": "0.1.0",
+  "sources": {
+    "dir": "patterns",
+    "subdirs": true
+  },
+  "ignored-dirs": [ "patterns/interpreter" ],
+  "package-specs": {
+    "module": "commonjs",
+    "in-source": true
+  },
+  "suffix": ".bs.js",
+  "bs-dependencies": [],
+  "warnings": {
+    "number":"-109-34-32",
+    "error": "+101"
+  },
+  "namespace": true
 }
diff --git a/package.json b/package.json
index d2871d2..fb01ef4 100644
--- a/package.json
+++ b/package.json
@@ -1,16 +1,15 @@
 {
-	"name": "reason-design-patterns",
-	"version": "0.1.0",
-	"scripts": {
-		"build": "bsb -make-world",
-		"start": "bsb -make-world -w",
-		"clean": "bsb -clean-world"
-	},
-	"keywords": [ "BuckleScript" ],
-	"author": "Leandro Ostera <leandro@ostera.io>",
-	"license": "MIT",
-	"devDependencies": {
-		"bs-platform": "^7.3.1"
-	},
-	"dependencies": {}
+  "name": "reason-design-patterns",
+  "version": "0.1.0",
+  "scripts": {
+    "build": "bsb -make-world",
+    "start": "bsb -make-world -w",
+    "clean": "bsb -clean-world"
+  },
+  "keywords": [ "BuckleScript" ],
+  "author": "Leandro Ostera <leandro@ostera.io>",
+  "license": "MIT",
+  "devDependencies": {
+    "bs-platform": "^9.0.2"
+  }
 }
diff --git a/patterns/100-named-args-functions/HundredNamedArgsFunctions.re b/patterns/100-named-args-functions/HundredNamedArgsFunctions.re
index 130471c..1adf83c 100644
--- a/patterns/100-named-args-functions/HundredNamedArgsFunctions.re
+++ b/patterns/100-named-args-functions/HundredNamedArgsFunctions.re
@@ -61,7 +61,8 @@ module Purchase_preference: {
   let make:
     (
       ~should_email: Email_preference.t=?,
-      ~history_status: Purchase_history.Status.t=?
+      ~history_status: Purchase_history.Status.t=?,
+      unit
     ) =>
     t;
 } = {
@@ -69,7 +70,7 @@ module Purchase_preference: {
     should_email: option(Email_preference.t),
     history_status: option(Purchase_history.Status.t),
   };
-  let make = (~should_email=?, ~history_status=?) => {
+  let make = (~should_email=?, ~history_status=?, ()) => {
     should_email,
     history_status,
   };
@@ -100,4 +101,4 @@ module Shopping_session: {
 // let purchase_item = (~sess: Shopping_session.t, ~prefs: Purchase_preference.t) => {
 //   sess,
 //   prefs,
-// } /*   result(_, _)*/;
\ No newline at end of file
+// } /*   result(_, _)*/;