From 057106c665b7bfcea34a5df62926dab6dcc88898 Mon Sep 17 00:00:00 2001
From: Fabien Freling <public@ffreling.com>
Date: Fri, 12 Dec 2014 23:28:16 +0100
Subject: [PATCH] Greet with o/

---
 ocaml/evaluate.ml | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ocaml/evaluate.ml b/ocaml/evaluate.ml
index 0b2e34c..4625735 100644
--- 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