RubyGems - trackler - Versions diffs - 2.1.0.21 → 2.1.0.22 - Mend

trackler 2.1.0.21 → 2.1.0.22

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (196) hide show

data/tracks/ocaml/exercises/luhn/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let every_second_digit_doubled =
   let double_digit n = let d = n * 2 in if d >= 10 then d - 9 else d in

data/tracks/ocaml/exercises/luhn/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Luhn

data/tracks/ocaml/exercises/meetup/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 type schedule = First | Second | Third | Fourth | Teenth | Last

data/tracks/ocaml/exercises/meetup/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 open OUnit2
 open Meetup
-open Core.Std
+open Core
 type case = {
   description: string;

data/tracks/ocaml/exercises/minesweeper/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 type field =
   | Mine

data/tracks/ocaml/exercises/minesweeper/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Minesweeper

data/tracks/ocaml/exercises/nucleotide-count/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 module CMap = Char.Map

data/tracks/ocaml/exercises/nucleotide-count/nucleotide_count.mli CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 (* Count the number of times the nucleotide occurs in the string. *)
 val count : string -> char -> int

data/tracks/ocaml/exercises/nucleotide-count/test.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open OUnit2
 module CMap = Char.Map

data/tracks/ocaml/exercises/pangram/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let string_to_set s = Char.Set.of_list (String.to_list s)

data/tracks/ocaml/exercises/pangram/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Pangram

data/tracks/ocaml/exercises/phone-number/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let check_valid_first_digits s =
   if s.[0] = '0' || s.[0] = '1' || s.[3] = '0' || s.[3] = '1'

data/tracks/ocaml/exercises/phone-number/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.2.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Phone_number

data/tracks/ocaml/exercises/prime-factors/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let square_root_trunc n =
     (* Square root is not defined on int64 but it is on big_int *)

data/tracks/ocaml/exercises/prime-factors/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Prime_factors

data/tracks/ocaml/exercises/raindrops/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let raindrop = function
   | n when n mod 105 = 0 -> "PlingPlangPlong"

data/tracks/ocaml/exercises/raindrops/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Raindrops

data/tracks/ocaml/exercises/rna-transcription/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 type dna = [ `A | `C | `G | `T ]
 type rna = [ `A | `C | `G | `U ]

data/tracks/ocaml/exercises/rna-transcription/test.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open OUnit2
 let char_of_variant = function

data/tracks/ocaml/exercises/robot-name/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 type robot = {mutable index : int}

data/tracks/ocaml/exercises/robot-name/test.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open OUnit2
 open Robot_name

data/tracks/ocaml/exercises/roman-numerals/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Roman_numerals

data/tracks/ocaml/exercises/run-length-encoding/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let (>|>) f g x = g (f x)

data/tracks/ocaml/exercises/run-length-encoding/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Run_length_encoding

data/tracks/ocaml/exercises/say/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let rec in_english_impl = let open Int64 in function
   | 0L -> "zero"

data/tracks/ocaml/exercises/say/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Say

data/tracks/ocaml/exercises/space-age/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 type planet = Mercury | Venus | Earth | Mars
             | Jupiter | Saturn | Neptune | Uranus

data/tracks/ocaml/exercises/space-age/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Space_age

data/tracks/ocaml/exercises/triangle/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let sort_sides a b c =
   let side = List.nth_exn (List.sort ~cmp:Int.compare [a; b; c]) in

data/tracks/ocaml/exercises/triangle/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Triangle

data/tracks/ocaml/exercises/word-count/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 module SMap = String.Map

data/tracks/ocaml/exercises/word-count/test.ml CHANGED Viewed

@@ -1,6 +1,6 @@
 (* Test/exercise version: "1.0.0" *)
-open Core.Std
+open Core
 open OUnit2
 open Word_count

data/tracks/ocaml/exercises/word-count/word_count.mli CHANGED Viewed

@@ -1,6 +1,4 @@
-(** Word-count exercise *)
-open Core.Std
+open Core
 (**
  * Count occurences of words (consisting of letters and numbers) in the string.

data/tracks/ocaml/exercises/zipper/example.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 type 'a trail =
   | L of 'a * 'a Tree.t option * 'a trail (* Left path taken *)

data/tracks/ocaml/exercises/zipper/test.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open OUnit2
 module T = Tree

data/tracks/ocaml/exercises/zipper/tree.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 type 'a t = { value : 'a; left : 'a t option; right : 'a t option }
   [@@deriving sexp]

data/tracks/ocaml/exercises/zipper/tree.mli CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 type 'a t = { value : 'a; left : 'a t option; right : 'a t option }

data/tracks/ocaml/exercises/zipper/zipper.mli CHANGED Viewed

@@ -1,5 +1,5 @@
 (** Zipper exercise interface *)
-open Core.Std
+open Core
 (** The type of a zipper *)
 type 'a t

data/tracks/ocaml/tools/test-generator/src/canonical_data_checker.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let is_directory =
   Command.Spec.Arg_type.create

data/tracks/ocaml/tools/test-generator/src/codegen.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open Model
 open Yojson.Basic

data/tracks/ocaml/tools/test-generator/src/controller.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open Parser
 open Model
 open Utils

data/tracks/ocaml/tools/test-generator/src/debug.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open Controller
 let home_dir = Option.value_exn (Sys.getenv "HOME")

data/tracks/ocaml/tools/test-generator/src/files.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let mkdir_if_not_present dir =
   if Sys.file_exists dir = `No

data/tracks/ocaml/tools/test-generator/src/model.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open Utils
 open Yojson.Basic

data/tracks/ocaml/tools/test-generator/src/parser.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open Utils
 open Yojson.Basic
 open Yojson.Basic.Util
@@ -9,9 +9,9 @@ type error =
     NoDescription | BadDescription | NoExpected of string | BadExpected | UnrecognizedJson [@@deriving eq, show]
 let parse_case_assoc (parameters: (string * json) list) (expected_key: string): (case, error) Result.t =
-  let find name e = List.Assoc.find parameters name |> Result.of_option ~error:e in
-  let test_parameters = List.Assoc.remove parameters "description" in
-  let test_parameters = List.Assoc.remove test_parameters expected_key in
+  let find name e = List.Assoc.find parameters ~equal:String.equal name |> Result.of_option ~error:e in
+  let test_parameters = List.Assoc.remove parameters ~equal:String.equal "description" in
+  let test_parameters = List.Assoc.remove test_parameters ~equal:String.equal expected_key in
   let open Result.Monad_infix in
   find "description" NoDescription >>=
   to_string_note BadDescription >>= fun description ->
@@ -37,7 +37,7 @@ let parse_single (text: string) (expected_key: string) (cases_key: string): (tes
 let rec to_cases case: (case list, error) Result.t =
   let open Result.Monad_infix in
   find_note case "description" NoDescription >>= to_string_note BadDescription >>= fun desc ->
-  let cases = List.Assoc.find case "cases" in
+  let cases = List.Assoc.find case ~equal:String.equal "cases" in
   match cases with
   | Some cases -> to_list_note UnrecognizedJson cases >>= fun cases ->
       List.map cases ~f:(to_assoc_note UnrecognizedJson) |> sequence >>= fun x ->

data/tracks/ocaml/tools/test-generator/src/special_cases.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open Model
 open Yojson.Basic

data/tracks/ocaml/tools/test-generator/src/template.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open Codegen
 open Utils

data/tracks/ocaml/tools/test-generator/src/test_gen.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 let is_directory =
   Command.Spec.Arg_type.create

data/tracks/ocaml/tools/test-generator/src/utils.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open Yojson.Basic
 open Yojson.Basic.Util
@@ -43,7 +43,7 @@ let member_note error m json =
   try Ok (member m json) with Type_error _ -> Error error
 let find_note (xs: ('a, 'b) List.Assoc.t) (key: 'a) (error: 'e): ('b, 'e) Result.t =
-  match List.Assoc.find xs key with
+  match List.Assoc.find ~equal:(=) xs key with
   | Some v -> Ok v
   | None -> Error error

data/tracks/ocaml/tools/test-generator/templates/acronym/template.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open OUnit2
 open Acronym

data/tracks/ocaml/tools/test-generator/templates/all-your-base/template.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open OUnit2
 open All_your_base

data/tracks/ocaml/tools/test-generator/templates/anagram/template.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open OUnit2
 open Anagram

data/tracks/ocaml/tools/test-generator/templates/atbash-cipher/template.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open OUnit2
 open Atbash_cipher

data/tracks/ocaml/tools/test-generator/templates/beer-song/template.ml CHANGED Viewed

@@ -1,4 +1,4 @@
-open Core.Std
+open Core
 open OUnit2
 open Beer_song