notify of link errors

Sketch-sh · Sep 4, 2018 · 2c41242 · 2c41242
1 parent 5eb2740
commit 2c41242
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/client/src_editor/Editor_Blocks_Utils.re b/client/src_editor/Editor_Blocks_Utils.re
@@ -236,3 +236,12 @@ let concatCodeBlocksToString = blocks =>
         }
       )
     );
+exception Not_Implemented;
+
+let getNameFromLink = link =>
+  Editor_Types.Link.(
+    switch (link) {
+    | Internal(internalLink) => internalLink.name
+    | External () => raise(Not_Implemented)
+    }
+  );
diff --git a/client/src_editor/Editor_Links.re b/client/src_editor/Editor_Links.re
@@ -65,6 +65,7 @@ module EmptyLink = {
     | UpdateName(string);
 
   let component = ReasonReact.reducerComponent("Editor_EmptyLink");
+
   let make = (~status, ~onSubmit, ~onFetched=?, ~name="", ~id="", _children) => {
     ...component,
     initialState: () => {name, id},