Merge pull request #19 from teaching-the-art-of-fp/bugfix1-playground

Fixing URL pattern
teaching-the-art-of-fp · Jan 8, 2021 · ff48fff · ff48fff
2 parents dae2637 + 3bd0b76
commit ff48fff
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/app/learnocaml_common.ml b/src/app/learnocaml_common.ml
@@ -907,6 +907,9 @@ module Editor_button (E : Editor_info) = struct
     let exercise_id = match Url.Current.path with
       | "" :: "exercises" :: p | "exercises" :: p ->
           String.concat "/" (List.map Url.urldecode (List.filter ((<>) "") p))
+      | "" :: "playground" :: p | "exercises" :: p ->
+          String.concat "/" (List.map Url.urldecode (List.filter ((<>) "") p))
+      | exception Not_found -> "other"
       | _ -> arg "id"
     in
     let url = Js.string @@  Js.to_string (eval_unsafe "window.location.protocol") ^