Changeset 7112

Show
Ignore:
Timestamp:
01/27/10 22:53:36 (7 weeks ago)
Author:
metamorph68
Message:

Adapted lang_magic.ml to the new configure.mli

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/liquidsoap/src/lang/lang_magic.ml

    r6344 r7112  
    3030    (fun p -> 
    3131       let file = Lang.to_string (Lang.assoc "" 1 p) in 
    32          match Configure.file_mime file with 
    33            | Some s -> Lang.string s 
     32         match Configure.file_mime with 
     33           | Some s -> Lang.string (s file) 
    3434           | None -> assert false (* TODO is that really impossible ? *))