cabal-cache-1.1.0.2: src/HaskellWorks/CabalCache/Store.hs

module HaskellWorks.CabalCache.Store
  ( cleanupStorePath,
  ) where

import Control.Monad.Catch        (MonadCatch)
import HaskellWorks.Prelude

import qualified Control.Monad.Oops              as OO
import qualified HaskellWorks.CabalCache.IO.Lazy as IO
import qualified System.Directory                as IO

cleanupStorePath :: ()
  => MonadIO m
  => MonadCatch m
  => FilePath
  -> ExceptT (OO.Variant e) m ()
cleanupStorePath packageStorePath = do
  pathExists <- liftIO $ IO.doesPathExist packageStorePath
  when pathExists $ void $ IO.removePathRecursive packageStorePath