noTrailingSlash :: FilePath -> FilePath
noTrailingSlash p =
    if last p == '/'
    then init p
    else p
noTrailingSlash :: FilePath -> FilePath
noTrailingSlash p =
    if last p == '/'
    then init p
    else p
noTrailingSlash p =
    if last p == '/'
    then init p
    else p