diff options
| author | CJ Bell | 2016-11-10 22:28:13 -0500 |
|---|---|---|
| committer | CJ Bell | 2016-11-10 22:44:50 -0500 |
| commit | 5da573031d36c5a1df5dcf64cc8764f489f774f7 (patch) | |
| tree | 42339be783267de2056ed75e9af620a41a5ae72b /ide | |
| parent | 0f5e89ec54bc613f59ce971e6a95ed1161ffc37b (diff) | |
Remove unused feedback_content: Goals
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/xmlprotocol.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/ide/xmlprotocol.ml b/ide/xmlprotocol.ml index aecb317bcb..5f82a8898b 100644 --- a/ide/xmlprotocol.ml +++ b/ide/xmlprotocol.ml @@ -816,7 +816,6 @@ let to_feedback_content = do_match "feedback_content" (fun s a -> match s,a with | "workerstatus", [ns] -> let n, s = to_pair to_string to_string ns in WorkerStatus(n,s) - | "goals", [loc;s] -> Goals (to_loc loc, to_string s) | "custom", [loc;name;x]-> Custom (to_loc loc, to_string name, x) | "filedependency", [from; dep] -> FileDependency (to_option to_string from, to_string dep) @@ -849,8 +848,6 @@ let of_feedback_content = function | WorkerStatus(n,s) -> constructor "feedback_content" "workerstatus" [of_pair of_string of_string (n,s)] - | Goals (loc,s) -> - constructor "feedback_content" "goals" [of_loc loc;of_string s] | Custom (loc, name, x) -> constructor "feedback_content" "custom" [of_loc loc; of_string name; x] | FileDependency (from, depends_on) -> |