Greet with o/

2014-12-12 23:28:16 +01:00 · 2014-12-12 23:28:16 +01:00 · 057106c665
parent a8571e3597
commit 057106c665
1 changed files with 3 additions and 0 deletions
--- a/ocaml/evaluate.ml
+++ b/ocaml/evaluate.ml
@ -25,8 +25,11 @@ let remove_spaces str =
 let evaluate str =
  match str with
  | str when is_url str ->
+    begin
      let title = SimpleHttp.get_http_title (SimpleHttp.get_body str) |> remove_spaces in
      match title with
      | Some t -> Some ("[ " ^ t ^ " ]")
      | None -> None
+    end
+  | "o/" -> Some "o/"
  | _ -> None