umountDevice :: FilePath -> IO ExitCode
umountDevice path = do
    e <- tryCommand ("umount " ++ path)
    case e of
        ExitSuccess -> do
            removeEmptyDirectory path
            return e
        ExitFailure a -> do
            return e


-- path to content files
umountDevice :: FilePath -> IO ExitCode
umountDevice path = do
    e <- tryCommand ("umount " ++ path)
    case e of
        ExitSuccess -> do
            removeEmptyDirectory path
            return e
        ExitFailure a -> do
            return e


-- path to content files
umountDevice path = do
    e <- tryCommand ("umount " ++ path)
    case e of
        ExitSuccess -> do
            removeEmptyDirectory path
            return e
        ExitFailure a -> do
            return e


-- path to content files