Commit 959edfa9 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

minor

parent b26ae3d8
...@@ -130,11 +130,11 @@ let find_goal = function ...@@ -130,11 +130,11 @@ let find_goal = function
| _ -> None | _ -> None
let task_goal task = match find_goal task with let task_goal task = match find_goal task with
| Some(pr,_) -> pr | Some (pr,_) -> pr
| None -> raise GoalNotFound | None -> raise GoalNotFound
let task_goal_fmla task = match find_goal task with let task_goal_fmla task = match find_goal task with
| Some(_,f) -> f | Some (_,f) -> f
| None -> raise GoalNotFound | None -> raise GoalNotFound
let check_task task = match find_goal task with let check_task task = match find_goal task with
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment