From 3e1e344ea57e5c0eb77fdb10e9d8d625efa2e1e8 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 22 Mar 2021 12:34:50 -0400
Subject: Deduplicate activeAuthor list

This might not be very robust, but it works for now.
---
 Biz/Devalloc.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Biz')

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
-- 
cgit v1.2.3