getIncludeDirs :: EitherT MafiaError IO [Path]
getIncludeDirs = do
  packageDB     <- firstT MafiaCabalError getPackageDB
  subdirs       <- getDirectoryListing (RecursiveDepth 0) packageDB
  let packages = filter (extension ".conf") subdirs
  concat <$> mapM readIncludeDirs packages
getIncludeDirs :: EitherT MafiaError IO [Path]
getIncludeDirs = do
  packageDB     <- firstT MafiaCabalError getPackageDB
  subdirs       <- getDirectoryListing (RecursiveDepth 0) packageDB
  let packages = filter (extension ".conf") subdirs
  concat <$> mapM readIncludeDirs packages
getIncludeDirs = do
  packageDB     <- firstT MafiaCabalError getPackageDB
  subdirs       <- getDirectoryListing (RecursiveDepth 0) packageDB
  let packages = filter (extension ".conf") subdirs
  concat <$> mapM readIncludeDirs packages