chore: add remaining deprecations

package.json

@@ -43,6 +43,11 @@
     "relude": "^0.66.1"
   },
   "jest": {
+    "testPathIgnorePatterns": [
+      "./test/output",
+      "_build",
+      "_opam"
+    ],
     "coveragePathIgnorePatterns": [
       "./test"
     ],

src/Decode.re

@@ -5,7 +5,9 @@ module Make = Base.Make;
 
 module ParseError = Decode_ParseError;
 
+[@deprecated "Use Decode.ParseError instead"]
 module AsOption = Decode_AsOption;
+
 module AsResult = {
   module OfParseError = Decode_AsResult_OfParseError;
 

src/Decode_AsResult_OfParseError.rei

@@ -93,15 +93,21 @@ let literalFloat: (float, Js.Json.t) => result(float, ParseError.failure);
 let stringUnion:
   ((string, 'a), list((string, 'a)), Js.Json.t) =>
   result('a, ParseError.failure);
+
+[@deprecated "Use literal instead"]
 let variantFromJson:
   (
     Js.Json.t => result('a, ParseError.failure),
     'a => option('b),
     Js.Json.t
   ) =>
   result('b, ParseError.failure);
+
+[@deprecated "Use stringUnion instead"]
 let variantFromString:
   (string => option('a), Js.Json.t) => result('a, ParseError.failure);
+
+[@deprecated "Use literalInt and alt/oneOf instead"]
 let variantFromInt:
   (int => option('a), Js.Json.t) => result('a, ParseError.failure);
 
@@ -213,6 +219,7 @@ let dict:
   (Js.Json.t => result('a, ParseError.failure), Js.Json.t) =>
   result(Js.Dict.t('a), ParseError.failure);
 
+[@deprecated "Use dict instead, and convert the Dict to a Map"]
 let stringMap:
   (Js.Json.t => result('a, ParseError.failure), Js.Json.t) =>
   result(Belt.Map.String.t('a), ParseError.failure);

src/Decode_Base.re

@@ -69,6 +69,7 @@ module Make =
     let mkDecode = ((s, v)) => literalString(s) |> map(_ => v);
     first |> mkDecode |> oneOf(_, rest |> List.map(mkDecode));
   };
+
   let variantFromJson = (jsonToJs, jsToVariant) =>
     jsonToJs
     |> map(jsToVariant)

test/Decode_AsOption_test.re

@@ -2,6 +2,7 @@ open Jest;
 open Expect;
 open Relude.Globals;
 
+[@ocaml.warning "-3"]
 module Decode = Decode.AsOption;
 module Sample = Decode_TestSampleData;
 

test/Decode_AsResult_OfParseError_test.re

@@ -67,6 +67,7 @@ describe("Simple decoders", () => {
   );
 
   test("variant", () =>
+    [@ocaml.warning "-3"]
     expect(Decode.variantFromString(Sample.colorFromJs, Sample.jsonString))
     |> toEqual(valErr(`ExpectedValidOption, Sample.jsonString))
   );