johnhaley81

[Error - 5:11:15 PM] Request textDocument/documentSymbol failed.
Error: Connection got disposed.
	at Object.dispose (/Users/john/.vscode/extensions/ocamllabs.ocaml-platform-0.9.0/dist/index.js:26597:25)
	at Object.dispose (/Users/john/.vscode/extensions/ocamllabs.ocaml-platform-0.9.0/dist/index.js:14916:35)
	at LanguageClient.handleConnectionClosed (/Users/john/.vscode/extensions/ocamllabs.ocaml-platform-0.9.0/dist/index.js:17151:42)
	at LanguageClient.handleConnectionClosed (/Users/john/.vscode/extensions/ocamllabs.ocaml-platform-0.9.0/dist/index.js:34239:15)
	at closeHandler (/Users/john/.vscode/extensions/ocamllabs.ocaml-platform-0.9.0/dist/index.js:17138:18)
	at CallbackList.invoke (/Users/john/.vscode/extensions/ocamllabs.ocaml-platform-0.9.0/dist/index.js:7965:39)
	at Emitter.fire (/Users/john/.vscode/extensions/ocamllabs.ocaml-platform-0.9.0/dist/index.js:8024:36)
	at closeHandler (/Users/john/.vscode/extensions/ocamllabs.ocaml-platform-0.9.0/dist/index.js:25933:26)

johnhaley81

open Relude.Globals; // I usually do this in bsconfig

type user = {
  firstName: string,
  lastName: string,
};
type error =
  | AlreadyLoggedIn;

type context = {

johnhaley81

open Relude.Globals;

[@bs.module "dotenv"] external getEnvVars: unit => unit = "config";

let getEnvVars = () =>
  getEnvVars()
  |> (() => Node.Process.process##env)
  |> (Js.Dict.map((. x) => x |> Json.Encode.string) >> Json.Encode.dict);

johnhaley81

open Relude.Globals;

module ParseError = Decode.ParseError;

module Decode = {
  let isValidDate: 'a => bool = [%raw
    {|
    function isValidDate(date) {
      return date && Object.prototype.toString.call(date) === "[object Date]" && !isNaN(date);
    }

johnhaley81

type selector('state, 'result) = 'state => 'result;

[@bs.module "reselect"]
external createSelector1:
  ('state => 'a, 'a => 'result) => selector('state, 'result) =
  "createSelector";

[@bs.module "reselect"]
external createSelector2:
  ('state => 'a, 'state => 'b, ('a, 'b) => 'result) =>

johnhaley81

/* Snip */
test("Enum failure can be mapped to string", () => {
    let message =
      switch (Color.decode(jsonInvalidStr)) {
      | Belt.Result.Ok(result) => result->Belt.Result.Ok
      | Belt.Result.Error(parseError) =>
        Decode_ParseError.toDebugString(
          x =>
            switch (x) {
            | `InvalidColor => (_json => "Invalid color")

johnhaley81

module Decode = {
  type failure = [ DecodeBase.failure | `InvalidOption];

  let failureToString = (v: failure, json) =>
    (
      switch (v) {
      | `ExpectedBoolean => "Expected boolean"
      | `ExpectedString => "Expected string"
      | `ExpectedNumber => "Expected number"
      | `ExpectedInt => "Expected int"

johnhaley81

open VowUtils.Infix;

module ErrorResponse = {
  type t('a) = {
    .
    "config": Axios_types.config,
    "response": {
      .
      "data": Js.Null.t(Js.Json.t),
      "status": int,

johnhaley81

Keybase proof

I hereby claim:

• I am johnhaley81 on github.
• I am johnhaley81 (https://keybase.io/johnhaley81) on keybase.
• I have a public key ASB-ua8ysbm32WEPxuN7dMbQwXr8KuH_KkMo3TRsbwlr2Ao

To claim this, I am signing this object:

johnhaley81

{-# LANGUAGE EmptyDataDecls             #-}
{-# LANGUAGE FlexibleContexts           #-}
{-# LANGUAGE FlexibleInstances          #-}
{-# LANGUAGE GADTs                      #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses      #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE QuasiQuotes                #-}
{-# LANGUAGE TemplateHaskell            #-}
{-# LANGUAGE TypeFamilies               #-}