Hi all !

Some times ago, we added an internal translation for unix errors which turned 
out to be very usefull in order to understand the problems hapenning in 
liquidsoap.

I have just commited a generalization of this. Now optional modules can also 
register error translators. The code goes like this:

let error_translator =
  function
    | Cry.Error x ->
       raise (Utils.Translation
         (Printf.sprintf "Cry error: %s" (Cry.string_of_error x)))
    | _ -> ()

let () = Utils.register_error_translator error_translator

I have already added translators for Cry and Lastfm. Do you have other errors 
in mind that are cryptic and that we would like to translate when they are 
raised ?

Romain

------------------------------------------------------------------------------
Centralized Desktop Delivery: Dell and VMware Reference Architecture
Simplifying enterprise desktop deployment and management using
Dell EqualLogic storage and VMware View: A highly scalable, end-to-end
client virtualization framework. Read more!
http://p.sf.net/sfu/dell-eql-dev2dev
_______________________________________________
Savonet-devl mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/savonet-devl

Répondre à