Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (11 sloc) 294 Bytes
(* Ohm is © 2012 Victor Nicollet *)
open Util
open BatPervasives
module BS = BatString
let path_clean path =
if BS.is_empty path then path
else let path =
if BS.ends_with path "/" then BS.rchop path
else path
in if BS.starts_with path "/" then BS.lchop path
else path