-- deletes the item from the list
-- dropItem '/' "/home/i/test/"  -> "homeitest"
dropItem :: (Eq a) => a -> [a] -> [a]
dropItem i = foldr (\x y -> if x == i then y else x : y) []
dropItem :: (Eq a) => a -> [a] -> [a]
dropItem i = foldr (\x y -> if x == i then y else x : y) []
dropItem i = foldr (\x y -> if x == i then y else x : y) []