stripDir :: FilePath -> (FilePath, FilePath)
stripDir =
    (\ (x, y) -> (if null y then "./" else reverse y, reverse x))
    . break (== '/') . reverse
stripDir :: FilePath -> (FilePath, FilePath)
stripDir =
    (\ (x, y) -> (if null y then "./" else reverse y, reverse x))
    . break (== '/') . reverse
stripDir =
    (\ (x, y) -> (if null y then "./" else reverse y, reverse x))
    . break (== '/') . reverse