diff options
Diffstat (limited to 'Biz')
| -rw-r--r-- | Biz/Devalloc.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Biz/Devalloc.hs b/Biz/Devalloc.hs index 4e2efdb..e102e94 100644 --- a/Biz/Devalloc.hs +++ b/Biz/Devalloc.hs @@ -1760,6 +1760,7 @@ analyzeGitHub keep user@User {userId} ghAuth depo o r = do +> Async.mapConcurrently (GitHub.github ghAuth) /> map (either (const Nothing) GitHub.userEmail) /> catMaybes + /> List.nub GitHub.github ghAuth (GitHub.repositoryR ghOwner ghRepo) +> \case Left err -> throwIO <| toException err Right repo -> do |