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

import qualified System.Directory as IO

safeListDirectory :: FilePath -> IO [FilePath]
safeListDirectory :: FilePath -> IO [FilePath]
safeListDirectory FilePath
fp = do
  Bool
exists <- FilePath -> IO Bool
IO.doesDirectoryExist FilePath
fp
  if Bool
exists
    then FilePath -> IO [FilePath]
IO.listDirectory FilePath
fp
    else forall (m :: * -> *) a. Monad m => a -> m a
return []