haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

handle LTerm_inputrc.Parse_error

This commit is contained in:
Jeremie Dimino 2013-07-08 11:03:46 +01:00
parent c5916882f2
commit cbc658ca41
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/lib/uTop_main.ml
View File

@ -1066,8 +1066,11 @@ let common_init () =
let load_inputrc () =
try_lwt
LTerm_inputrc.load ()
with Unix.Unix_error (error, func, arg) ->
Lwt_log.error_f "cannot key bindings from %S: %s: %s" LTerm_inputrc.default func (Unix.error_message error)
with
| Unix.Unix_error (error, func, arg) ->
Lwt_log.error_f "cannot load key bindings from %S: %s: %s" LTerm_inputrc.default func (Unix.error_message error)
| LTerm_inputrc.Parse_error (fname, line, msg) ->
Lwt_log.error_f "error in key bindings file %S, line %d: %s" fname line msg
let main_aux () =
Arg.parse args file_argument usage;