fabs
/
cheesebot
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Greet with o/

master
Fabien Freling 2014-12-12 23:28:16 +01:00
parent a8571e3597
commit 057106c665
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ocaml/evaluate.ml
View File

@ -25,8 +25,11 @@ let remove_spaces str =
let evaluate str = let evaluate str =
match str with match str with
| str when is_url str -> | str when is_url str ->
begin
let title = SimpleHttp.get_http_title (SimpleHttp.get_body str) |> remove_spaces in let title = SimpleHttp.get_http_title (SimpleHttp.get_body str) |> remove_spaces in
match title with match title with
| Some t -> Some ("[ " ^ t ^ " ]") | Some t -> Some ("[ " ^ t ^ " ]")
| None -> None | None -> None
end
| "o/" -> Some "o/"
| _ -> None | _ -> None