succinct-0.0.0.1: components/succinct-core-gen/src/Data/Succinct/BalancedParens/Internal/IO.hs

module Data.Succinct.BalancedParens.Internal.IO
  ( safeListDirectory
  ) where

import qualified System.Directory as IO

safeListDirectory :: FilePath -> IO [FilePath]
safeListDirectory fp = do
  exists <- IO.doesDirectoryExist fp
  if exists
    then IO.listDirectory fp
    else return []