Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: b4eb282066
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (19 sloc) 0.765 kB
(* Yoann Padioleau
*
* Copyright (C) 2010 Facebook
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
* version 2.1 as published by the Free Software Foundation, with the
* special exception on linking described in file license.txt.
*
* This library is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the file
* license.txt for more details.
*)
(* meant to be in a analyze_ml/basic/ at some point *)
let module_name_of_filename file =
let (d,b,e) = Common.dbe_of_filename file in
let module_name = String.capitalize b in
module_name
Jump to Line
Something went wrong with that request. Please try again.