rmdir :: [Attrib] -> Exp FilePath -> Action ()
rmdir as x = do
    Value x <- x
    emit $ RMDir $ foldl f def{rmDir=x} as
    where
        f c RebootOK = c{rmRebootOK=True}
        f c Recursive = c{rmRecursive=True}
        f c x = error $ "Invalid attribute to rmdir: " ++ show x

-- | Both file paths are on the installing system. Do not use relative paths.
rmdir :: [Attrib] -> Exp FilePath -> Action ()
rmdir as x = do
    Value x <- x
    emit $ RMDir $ foldl f def{rmDir=x} as
    where
        f c RebootOK = c{rmRebootOK=True}
        f c Recursive = c{rmRecursive=True}
        f c x = error $ "Invalid attribute to rmdir: " ++ show x

-- | Both file paths are on the installing system. Do not use relative paths.
rmdir as x = do
    Value x <- x
    emit $ RMDir $ foldl f def{rmDir=x} as
    where
        f c RebootOK = c{rmRebootOK=True}
        f c Recursive = c{rmRecursive=True}
        f c x = error $ "Invalid attribute to rmdir: " ++ show x

-- | Both file paths are on the installing system. Do not use relative paths.