removeAll :: Options -> IO ()
removeAll opts = do
    runFind cabalConfigs >>= mapM_ (archiveFile opts ".orig" . snd)
    findAll >>= remove opts VersionAll
  where
    cabalConfigs = path "/Users" >>> star >>> path ".cabal/config" >>> exists
removeAll :: Options -> IO ()
removeAll opts = do
    runFind cabalConfigs >>= mapM_ (archiveFile opts ".orig" . snd)
    findAll >>= remove opts VersionAll
  where
    cabalConfigs = path "/Users" >>> star >>> path ".cabal/config" >>> exists
removeAll opts = do
    runFind cabalConfigs >>= mapM_ (archiveFile opts ".orig" . snd)
    findAll >>= remove opts VersionAll
  where
    cabalConfigs = path "/Users" >>> star >>> path ".cabal/config" >>> exists