Skip to content

Instantly share code, notes, and snippets.

@AdamSaleh

AdamSaleh/pursuit_dependents.hs

Created May 16, 2018 13:13
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save AdamSaleh/6a98a0c26c7c37d1abe8f564b305020a to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save AdamSaleh/6a98a0c26c7c37d1abe8f564b305020a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
pursuit_dependents.hs
getDependents :: PackageName -> Handler [PackageName]
getDependents pkgdep = do
allPkgs <- getAllPackages
return $ D.packageName <$> (filter (\pkg -> isJust $ find isPackageDep $ getDepList pkg) allPkgs)
where isPackageDep = (== (runPackageName pkgdep))
getDepList p = map (runPackageName . fst) $ bowerDependencies $ D.pkgMeta $ p
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment