Skip to content
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
Jump to Line
Something went wrong with that request. Please try again.