Remove old file

examples/csv/Parser/Json.roc

@@ -1,69 +0,0 @@
-interface Parser.Json
-  exposes [
-  JsonValue,
-  jsonNum,
-  jsonNumArray,
-  jsonValueToStrDebug,
-  ]
-    imports [
-  Parser.Core.{Parser, fail, const, map, map2, apply, many, oneOrMore, sepBy, sepBy1, between, ignore},
-  Parser.Str.{RawStr, runPartialStr, runStr, oneOf, string, scalar, digits}
-]
-
-JsonValue := [
-  JsonNull,
-  JsonBool Bool,
-  JsonNum F64,
-  JsonStr Str,
-  JsonArray (List JsonValue),
-  JsonDict (List [Pair Str JsonValue]),
-]
-
-jsonValueToStrDebug : JsonValue -> Str
-jsonValueToStrDebug = \@JsonValue val ->
-  when val is
-    JsonNum numVal ->
-      Num.toStr numVal
-    other ->
-      "not implemented yet"
-
-jsonNull : Parser RawStr JsonValue
-jsonNull =
-    string "null"
-    |> map \_val ->
-      @JsonValue JsonNull
-
-jsonBool : Parser RawStr JsonValue
-jsonBool =
-    oneOf [string "true", string "false"]
-    |> map \val ->
-        if val == "true" then
-            @JsonValue (JsonBool True)
-        else
-            @JsonValue (JsonBool False)
-
-# TODO: negative numbers
-# TODO: floats and exponent notation
-# TODO: Dealing with ints larger than 2^53 would be a nice extension.
-jsonNum : Parser RawStr JsonValue
-jsonNum = digits |> map \intVal ->
-  @JsonValue (JsonNum (Num.toFrac intVal))
-
-
-jsonWSChar =
-  oneOf [
-    scalar ' ',
-    scalar '\t',
-    scalar '\n',
-  ]
-
-jsonWS = ignore (many jsonWSChar)
-
-jsonComma = map2 (scalar ',') jsonWS (\_, _ -> {})
-
-jsonNumArray : Parser RawStr JsonValue
-jsonNumArray =
-    jsonNum
-    |> sepBy jsonComma
-    |> between (scalar '[') (scalar ']')
-    |> map (\res -> @JsonValue (JsonArray res))