trackler 2.1.0.21 → 2.1.0.22

Sign up to get free protection for your applications and to get access to all the features.
Files changed (196) hide show
  1. checksums.yaml +4 -4
  2. data/lib/trackler/version.rb +1 -1
  3. data/tracks/delphi/exercises/allergies/uAllergiesExample.pas +10 -3
  4. data/tracks/ocaml/.travis-ci.sh +3 -1
  5. data/tracks/ocaml/exercises/acronym/Makefile +1 -1
  6. data/tracks/ocaml/exercises/acronym/example.ml +1 -1
  7. data/tracks/ocaml/exercises/acronym/test.ml +2 -4
  8. data/tracks/ocaml/exercises/all-your-base/example.ml +1 -1
  9. data/tracks/ocaml/exercises/all-your-base/test.ml +1 -1
  10. data/tracks/ocaml/exercises/anagram/example.ml +1 -1
  11. data/tracks/ocaml/exercises/anagram/test.ml +1 -1
  12. data/tracks/ocaml/exercises/atbash-cipher/example.ml +1 -1
  13. data/tracks/ocaml/exercises/atbash-cipher/test.ml +1 -1
  14. data/tracks/ocaml/exercises/beer-song/example.ml +1 -1
  15. data/tracks/ocaml/exercises/beer-song/test.ml +1 -1
  16. data/tracks/ocaml/exercises/binary-search/Makefile +1 -1
  17. data/tracks/ocaml/exercises/binary-search/example.ml +5 -5
  18. data/tracks/ocaml/exercises/binary-search/test.ml +1 -1
  19. data/tracks/ocaml/exercises/bob/example.ml +1 -1
  20. data/tracks/ocaml/exercises/bob/test.ml +1 -1
  21. data/tracks/ocaml/exercises/bowling/bowling.mli +1 -1
  22. data/tracks/ocaml/exercises/bowling/example.ml +1 -1
  23. data/tracks/ocaml/exercises/bowling/test.ml +1 -1
  24. data/tracks/ocaml/exercises/bracket-push/example.ml +1 -1
  25. data/tracks/ocaml/exercises/bracket-push/test.ml +1 -1
  26. data/tracks/ocaml/exercises/change/example.ml +1 -1
  27. data/tracks/ocaml/exercises/change/test.ml +1 -1
  28. data/tracks/ocaml/exercises/connect/example.ml +1 -1
  29. data/tracks/ocaml/exercises/connect/test.ml +1 -1
  30. data/tracks/ocaml/exercises/difference-of-squares/example.ml +1 -1
  31. data/tracks/ocaml/exercises/difference-of-squares/test.ml +1 -1
  32. data/tracks/ocaml/exercises/dominoes/example.ml +1 -1
  33. data/tracks/ocaml/exercises/dominoes/test.ml +1 -1
  34. data/tracks/ocaml/exercises/etl/example.ml +1 -1
  35. data/tracks/ocaml/exercises/etl/test.ml +1 -1
  36. data/tracks/ocaml/exercises/grade-school/example.ml +1 -1
  37. data/tracks/ocaml/exercises/grade-school/grade_school.mli +1 -1
  38. data/tracks/ocaml/exercises/grade-school/test.ml +1 -1
  39. data/tracks/ocaml/exercises/hamming/example.ml +1 -1
  40. data/tracks/ocaml/exercises/hamming/test.ml +1 -1
  41. data/tracks/ocaml/exercises/hangman/example.ml +1 -1
  42. data/tracks/ocaml/exercises/hello-world/test.ml +1 -1
  43. data/tracks/ocaml/exercises/hexadecimal/example.ml +1 -1
  44. data/tracks/ocaml/exercises/hexadecimal/test.ml +1 -1
  45. data/tracks/ocaml/exercises/leap/test.ml +1 -1
  46. data/tracks/ocaml/exercises/list-ops/test.ml +1 -1
  47. data/tracks/ocaml/exercises/luhn/example.ml +1 -1
  48. data/tracks/ocaml/exercises/luhn/test.ml +1 -1
  49. data/tracks/ocaml/exercises/meetup/example.ml +1 -1
  50. data/tracks/ocaml/exercises/meetup/test.ml +1 -1
  51. data/tracks/ocaml/exercises/minesweeper/example.ml +1 -1
  52. data/tracks/ocaml/exercises/minesweeper/test.ml +1 -1
  53. data/tracks/ocaml/exercises/nucleotide-count/example.ml +1 -1
  54. data/tracks/ocaml/exercises/nucleotide-count/nucleotide_count.mli +1 -1
  55. data/tracks/ocaml/exercises/nucleotide-count/test.ml +1 -1
  56. data/tracks/ocaml/exercises/pangram/example.ml +1 -1
  57. data/tracks/ocaml/exercises/pangram/test.ml +1 -1
  58. data/tracks/ocaml/exercises/phone-number/example.ml +1 -1
  59. data/tracks/ocaml/exercises/phone-number/test.ml +1 -1
  60. data/tracks/ocaml/exercises/prime-factors/example.ml +1 -1
  61. data/tracks/ocaml/exercises/prime-factors/test.ml +1 -1
  62. data/tracks/ocaml/exercises/raindrops/example.ml +1 -1
  63. data/tracks/ocaml/exercises/raindrops/test.ml +1 -1
  64. data/tracks/ocaml/exercises/rna-transcription/example.ml +1 -1
  65. data/tracks/ocaml/exercises/rna-transcription/test.ml +1 -1
  66. data/tracks/ocaml/exercises/robot-name/example.ml +1 -1
  67. data/tracks/ocaml/exercises/robot-name/test.ml +1 -1
  68. data/tracks/ocaml/exercises/roman-numerals/test.ml +1 -1
  69. data/tracks/ocaml/exercises/run-length-encoding/example.ml +1 -1
  70. data/tracks/ocaml/exercises/run-length-encoding/test.ml +1 -1
  71. data/tracks/ocaml/exercises/say/example.ml +1 -1
  72. data/tracks/ocaml/exercises/say/test.ml +1 -1
  73. data/tracks/ocaml/exercises/space-age/example.ml +1 -1
  74. data/tracks/ocaml/exercises/space-age/test.ml +1 -1
  75. data/tracks/ocaml/exercises/triangle/example.ml +1 -1
  76. data/tracks/ocaml/exercises/triangle/test.ml +1 -1
  77. data/tracks/ocaml/exercises/word-count/example.ml +1 -1
  78. data/tracks/ocaml/exercises/word-count/test.ml +1 -1
  79. data/tracks/ocaml/exercises/word-count/word_count.mli +1 -3
  80. data/tracks/ocaml/exercises/zipper/example.ml +1 -1
  81. data/tracks/ocaml/exercises/zipper/test.ml +1 -1
  82. data/tracks/ocaml/exercises/zipper/tree.ml +1 -1
  83. data/tracks/ocaml/exercises/zipper/tree.mli +1 -1
  84. data/tracks/ocaml/exercises/zipper/zipper.mli +1 -1
  85. data/tracks/ocaml/tools/test-generator/src/canonical_data_checker.ml +1 -1
  86. data/tracks/ocaml/tools/test-generator/src/codegen.ml +1 -1
  87. data/tracks/ocaml/tools/test-generator/src/controller.ml +1 -1
  88. data/tracks/ocaml/tools/test-generator/src/debug.ml +1 -1
  89. data/tracks/ocaml/tools/test-generator/src/files.ml +1 -1
  90. data/tracks/ocaml/tools/test-generator/src/model.ml +1 -1
  91. data/tracks/ocaml/tools/test-generator/src/parser.ml +5 -5
  92. data/tracks/ocaml/tools/test-generator/src/special_cases.ml +1 -1
  93. data/tracks/ocaml/tools/test-generator/src/template.ml +1 -1
  94. data/tracks/ocaml/tools/test-generator/src/test_gen.ml +1 -1
  95. data/tracks/ocaml/tools/test-generator/src/utils.ml +2 -2
  96. data/tracks/ocaml/tools/test-generator/templates/acronym/template.ml +1 -1
  97. data/tracks/ocaml/tools/test-generator/templates/all-your-base/template.ml +1 -1
  98. data/tracks/ocaml/tools/test-generator/templates/anagram/template.ml +1 -1
  99. data/tracks/ocaml/tools/test-generator/templates/atbash-cipher/template.ml +1 -1
  100. data/tracks/ocaml/tools/test-generator/templates/beer-song/template.ml +1 -1
  101. data/tracks/ocaml/tools/test-generator/templates/binary-search/template.ml +1 -1
  102. data/tracks/ocaml/tools/test-generator/templates/bob/template.ml +1 -1
  103. data/tracks/ocaml/tools/test-generator/templates/bowling/template.ml +1 -1
  104. data/tracks/ocaml/tools/test-generator/templates/bracket-push/template.ml +1 -1
  105. data/tracks/ocaml/tools/test-generator/templates/change/template.ml +1 -1
  106. data/tracks/ocaml/tools/test-generator/templates/connect/template.ml +1 -1
  107. data/tracks/ocaml/tools/test-generator/templates/difference-of-squares/template.ml +1 -1
  108. data/tracks/ocaml/tools/test-generator/templates/dominoes/template.ml +1 -1
  109. data/tracks/ocaml/tools/test-generator/templates/etl/template.ml +1 -1
  110. data/tracks/ocaml/tools/test-generator/templates/hamming/template.ml +1 -1
  111. data/tracks/ocaml/tools/test-generator/templates/hello-world/template.ml +1 -1
  112. data/tracks/ocaml/tools/test-generator/templates/leap/template.ml +1 -1
  113. data/tracks/ocaml/tools/test-generator/templates/luhn/template.ml +1 -1
  114. data/tracks/ocaml/tools/test-generator/templates/minesweeper/template.ml +1 -1
  115. data/tracks/ocaml/tools/test-generator/templates/pangram/template.ml +1 -1
  116. data/tracks/ocaml/tools/test-generator/templates/phone-number/template.ml +1 -1
  117. data/tracks/ocaml/tools/test-generator/templates/prime-factors/template.ml +1 -1
  118. data/tracks/ocaml/tools/test-generator/templates/raindrops/template.ml +1 -1
  119. data/tracks/ocaml/tools/test-generator/templates/roman-numerals/template.ml +1 -1
  120. data/tracks/ocaml/tools/test-generator/templates/run-length-encoding/template.ml +1 -1
  121. data/tracks/ocaml/tools/test-generator/templates/say/template.ml +1 -1
  122. data/tracks/ocaml/tools/test-generator/templates/space-age/template.ml +1 -1
  123. data/tracks/ocaml/tools/test-generator/templates/triangle/template.ml +1 -1
  124. data/tracks/ocaml/tools/test-generator/templates/word-count/template.ml +1 -1
  125. data/tracks/ocaml/tools/test-generator/test/all_tests.ml +1 -1
  126. data/tracks/ocaml/tools/test-generator/test/codegen_test.ml +1 -1
  127. data/tracks/ocaml/tools/test-generator/test/model_test.ml +1 -1
  128. data/tracks/ocaml/tools/test-generator/test/parser_test.ml +1 -1
  129. data/tracks/ocaml/tools/test-generator/test/special_cases_test.ml +1 -1
  130. data/tracks/ocaml/tools/test-generator/test/template_test.ml +1 -1
  131. data/tracks/ocaml/tools/test-generator/test/utils_test.ml +1 -1
  132. data/tracks/r/.travis.yml +13 -2
  133. data/tracks/r/README.md +35 -16
  134. data/tracks/r/bin/run_lints.R +30 -0
  135. data/tracks/r/bin/run_tests.R +35 -0
  136. data/tracks/r/exercises/anagram/anagram.R +1 -1
  137. data/tracks/r/exercises/anagram/example.R +5 -5
  138. data/tracks/r/exercises/anagram/test_anagram.R +1 -15
  139. data/tracks/r/exercises/bob/bob.R +1 -1
  140. data/tracks/r/exercises/bob/example.R +2 -2
  141. data/tracks/r/exercises/bob/test_bob.R +1 -13
  142. data/tracks/r/exercises/difference-of-squares/example.R +5 -5
  143. data/tracks/r/exercises/difference-of-squares/test_difference-of-squares.R +2 -0
  144. data/tracks/r/exercises/grains/example.R +6 -6
  145. data/tracks/r/exercises/grains/grains.R +2 -2
  146. data/tracks/r/exercises/grains/test_grains.R +1 -2
  147. data/tracks/r/exercises/hamming/example.R +3 -3
  148. data/tracks/r/exercises/hamming/hamming.R +1 -1
  149. data/tracks/r/exercises/hamming/test_hamming.R +1 -1
  150. data/tracks/r/exercises/hello-world/example.R +1 -1
  151. data/tracks/r/exercises/hello-world/test_hello-world.R +1 -1
  152. data/tracks/r/exercises/isogram/example.R +4 -4
  153. data/tracks/r/exercises/isogram/isogram.R +1 -1
  154. data/tracks/r/exercises/isogram/test_isogram.R +1 -1
  155. data/tracks/r/exercises/largest-series-product/example.R +11 -11
  156. data/tracks/r/exercises/largest-series-product/largest-series-product.R +2 -2
  157. data/tracks/r/exercises/largest-series-product/test_largest-series-product.R +16 -16
  158. data/tracks/r/exercises/leap/leap.R +1 -1
  159. data/tracks/r/exercises/leap/test_leap.R +1 -1
  160. data/tracks/r/exercises/luhn/example.R +16 -10
  161. data/tracks/r/exercises/luhn/test_luhn.R +1 -1
  162. data/tracks/r/exercises/pascals-triangle/example.R +10 -10
  163. data/tracks/r/exercises/pascals-triangle/pascals-triangle.R +2 -2
  164. data/tracks/r/exercises/pascals-triangle/test_pascals-triangle.R +8 -8
  165. data/tracks/r/exercises/perfect-numbers/example.R +3 -3
  166. data/tracks/r/exercises/perfect-numbers/perfect-numbers.R +1 -1
  167. data/tracks/r/exercises/perfect-numbers/test_perfect-numbers.R +12 -12
  168. data/tracks/r/exercises/phone-number/example.R +8 -8
  169. data/tracks/r/exercises/phone-number/phone-number.R +1 -1
  170. data/tracks/r/exercises/phone-number/test_phone-number.R +11 -11
  171. data/tracks/r/exercises/prime-factors/example.R +2 -2
  172. data/tracks/r/exercises/prime-factors/prime-factors.R +1 -1
  173. data/tracks/r/exercises/prime-factors/test_prime-factors.R +1 -1
  174. data/tracks/r/exercises/raindrops/example.R +12 -11
  175. data/tracks/r/exercises/raindrops/test_raindrops.R +3 -2
  176. data/tracks/r/exercises/rna-transcription/example.R +3 -3
  177. data/tracks/r/exercises/rna-transcription/test_rna-transcription.R +1 -1
  178. data/tracks/r/exercises/rotational-cipher/example.R +7 -7
  179. data/tracks/r/exercises/rotational-cipher/test_rotational-cipher.R +3 -2
  180. data/tracks/r/exercises/scrabble-score/example.R +5 -4
  181. data/tracks/r/exercises/scrabble-score/scrabble-score.R +1 -1
  182. data/tracks/r/exercises/scrabble-score/test_scrabble-score.R +12 -12
  183. data/tracks/r/exercises/secret-handshake/example.R +6 -6
  184. data/tracks/r/exercises/secret-handshake/test_secret-handshake.R +5 -3
  185. data/tracks/r/exercises/sieve/test_sieve.R +1 -1
  186. data/tracks/r/exercises/space-age/example.R +8 -3
  187. data/tracks/r/exercises/space-age/space-age.R +1 -1
  188. data/tracks/r/exercises/space-age/test_space-age.R +1 -1
  189. data/tracks/r/exercises/sum-of-multiples/test_sum-of-multiples.R +1 -1
  190. data/tracks/r/exercises/tournament/example.R +14 -8
  191. data/tracks/r/exercises/tournament/test_tournament.R +1 -1
  192. data/tracks/r/exercises/word-count/example.R +9 -2
  193. data/tracks/r/exercises/word-count/test_word-count.R +1 -1
  194. data/tracks/r/exercises/word-count/word-count.R +1 -1
  195. data/tracks/vimscript/README.md +14 -9
  196. metadata +4 -2
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let every_second_digit_doubled =
4
4
  let double_digit n = let d = n * 2 in if d >= 10 then d - 9 else d in
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Luhn
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  type schedule = First | Second | Third | Fourth | Teenth | Last
4
4
 
@@ -1,6 +1,6 @@
1
1
  open OUnit2
2
2
  open Meetup
3
- open Core.Std
3
+ open Core
4
4
 
5
5
  type case = {
6
6
  description: string;
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  type field =
4
4
  | Mine
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Minesweeper
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  module CMap = Char.Map
4
4
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  (* Count the number of times the nucleotide occurs in the string. *)
4
4
  val count : string -> char -> int
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open OUnit2
3
3
 
4
4
  module CMap = Char.Map
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let string_to_set s = Char.Set.of_list (String.to_list s)
4
4
 
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Pangram
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let check_valid_first_digits s =
4
4
  if s.[0] = '0' || s.[0] = '1' || s.[3] = '0' || s.[3] = '1'
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.2.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Phone_number
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let square_root_trunc n =
4
4
  (* Square root is not defined on int64 but it is on big_int *)
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Prime_factors
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let raindrop = function
4
4
  | n when n mod 105 = 0 -> "PlingPlangPlong"
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Raindrops
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  type dna = [ `A | `C | `G | `T ]
4
4
  type rna = [ `A | `C | `G | `U ]
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open OUnit2
3
3
 
4
4
  let char_of_variant = function
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  type robot = {mutable index : int}
4
4
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open OUnit2
3
3
  open Robot_name
4
4
 
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Roman_numerals
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let (>|>) f g x = g (f x)
4
4
 
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Run_length_encoding
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let rec in_english_impl = let open Int64 in function
4
4
  | 0L -> "zero"
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Say
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  type planet = Mercury | Venus | Earth | Mars
4
4
  | Jupiter | Saturn | Neptune | Uranus
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Space_age
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let sort_sides a b c =
4
4
  let side = List.nth_exn (List.sort ~cmp:Int.compare [a; b; c]) in
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Triangle
6
6
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  module SMap = String.Map
4
4
 
@@ -1,6 +1,6 @@
1
1
  (* Test/exercise version: "1.0.0" *)
2
2
 
3
- open Core.Std
3
+ open Core
4
4
  open OUnit2
5
5
  open Word_count
6
6
 
@@ -1,6 +1,4 @@
1
- (** Word-count exercise *)
2
-
3
- open Core.Std
1
+ open Core
4
2
 
5
3
  (**
6
4
  * Count occurences of words (consisting of letters and numbers) in the string.
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  type 'a trail =
4
4
  | L of 'a * 'a Tree.t option * 'a trail (* Left path taken *)
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open OUnit2
3
3
 
4
4
  module T = Tree
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  type 'a t = { value : 'a; left : 'a t option; right : 'a t option }
4
4
  [@@deriving sexp]
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  type 'a t = { value : 'a; left : 'a t option; right : 'a t option }
4
4
 
@@ -1,5 +1,5 @@
1
1
  (** Zipper exercise interface *)
2
- open Core.Std
2
+ open Core
3
3
 
4
4
  (** The type of a zipper *)
5
5
  type 'a t
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let is_directory =
4
4
  Command.Spec.Arg_type.create
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  open Model
4
4
  open Yojson.Basic
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open Parser
3
3
  open Model
4
4
  open Utils
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open Controller
3
3
 
4
4
  let home_dir = Option.value_exn (Sys.getenv "HOME")
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let mkdir_if_not_present dir =
4
4
  if Sys.file_exists dir = `No
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  open Utils
4
4
  open Yojson.Basic
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open Utils
3
3
  open Yojson.Basic
4
4
  open Yojson.Basic.Util
@@ -9,9 +9,9 @@ type error =
9
9
  NoDescription | BadDescription | NoExpected of string | BadExpected | UnrecognizedJson [@@deriving eq, show]
10
10
 
11
11
  let parse_case_assoc (parameters: (string * json) list) (expected_key: string): (case, error) Result.t =
12
- let find name e = List.Assoc.find parameters name |> Result.of_option ~error:e in
13
- let test_parameters = List.Assoc.remove parameters "description" in
14
- let test_parameters = List.Assoc.remove test_parameters expected_key in
12
+ let find name e = List.Assoc.find parameters ~equal:String.equal name |> Result.of_option ~error:e in
13
+ let test_parameters = List.Assoc.remove parameters ~equal:String.equal "description" in
14
+ let test_parameters = List.Assoc.remove test_parameters ~equal:String.equal expected_key in
15
15
  let open Result.Monad_infix in
16
16
  find "description" NoDescription >>=
17
17
  to_string_note BadDescription >>= fun description ->
@@ -37,7 +37,7 @@ let parse_single (text: string) (expected_key: string) (cases_key: string): (tes
37
37
  let rec to_cases case: (case list, error) Result.t =
38
38
  let open Result.Monad_infix in
39
39
  find_note case "description" NoDescription >>= to_string_note BadDescription >>= fun desc ->
40
- let cases = List.Assoc.find case "cases" in
40
+ let cases = List.Assoc.find case ~equal:String.equal "cases" in
41
41
  match cases with
42
42
  | Some cases -> to_list_note UnrecognizedJson cases >>= fun cases ->
43
43
  List.map cases ~f:(to_assoc_note UnrecognizedJson) |> sequence >>= fun x ->
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  open Model
4
4
  open Yojson.Basic
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  open Codegen
4
4
  open Utils
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
 
3
3
  let is_directory =
4
4
  Command.Spec.Arg_type.create
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open Yojson.Basic
3
3
  open Yojson.Basic.Util
4
4
 
@@ -43,7 +43,7 @@ let member_note error m json =
43
43
  try Ok (member m json) with Type_error _ -> Error error
44
44
 
45
45
  let find_note (xs: ('a, 'b) List.Assoc.t) (key: 'a) (error: 'e): ('b, 'e) Result.t =
46
- match List.Assoc.find xs key with
46
+ match List.Assoc.find ~equal:(=) xs key with
47
47
  | Some v -> Ok v
48
48
  | None -> Error error
49
49
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open OUnit2
3
3
  open Acronym
4
4
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open OUnit2
3
3
  open All_your_base
4
4
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open OUnit2
3
3
  open Anagram
4
4
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open OUnit2
3
3
  open Atbash_cipher
4
4
 
@@ -1,4 +1,4 @@
1
- open Core.Std
1
+ open Core
2
2
  open OUnit2
3
3
  open Beer_song
4
4