diff options
| author | Ben Sima <ben@bsima.me> | 2021-03-22 12:34:50 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-03-22 12:34:50 -0400 |
| commit | 3e1e344ea57e5c0eb77fdb10e9d8d625efa2e1e8 (patch) | |
| tree | 50bee01d2158ae39540dc6237d0e16d4cbda572b /Biz/Devalloc.hs | |
| parent | 91e09a4aa53af080ddd784e22d749725adc86e8c (diff) | |
Deduplicate activeAuthor list
This might not be very robust, but it works for now.
Diffstat (limited to 'Biz/Devalloc.hs')
| -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 |