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

Put titles in brackets.

Browse source
This commit is contained in:
Fabien Freling 2014-12-12 23:25:41 +01:00
parent 062fd87bf5
commit a8571e3597
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ocaml/evaluate.ml
View file

@ -25,5 +25,8 @@ 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 ->
SimpleHttp.get_http_title (SimpleHttp.get_body str) |> remove_spaces let title = SimpleHttp.get_http_title (SimpleHttp.get_body str) |> remove_spaces in
match title with
| Some t -> Some ("[ " ^ t ^ " ]")
| None -> None
| _ -> None | _ -> None