diff options
Diffstat (limited to 'Biz/Devalloc.hs')
| -rw-r--r-- | Biz/Devalloc.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Biz/Devalloc.hs b/Biz/Devalloc.hs index 93af04f..acbb606 100644 --- a/Biz/Devalloc.hs +++ b/Biz/Devalloc.hs @@ -1015,7 +1015,7 @@ instance Lucid.ToHtml SelectRepo where header <| Just user Lucid.main_ [Lucid.id_ "selectRepo"] <| do Lucid.h2_ "Select a repo to analyze" - Lucid.ul_ <| Lucid.toHtml <| mapM_ displayRepo (Vector.toList repos) + Lucid.ul_ <| Lucid.toHtml <| traverse_ displayRepo (Vector.toList repos) footer where displayRepo :: GitHub.Repo -> Lucid.Html () @@ -1106,10 +1106,10 @@ instance Lucid.ToHtml Analysis where Lucid.h3_ <| Lucid.toHtml <| "Total files: " <> tshow totalFiles Lucid.h3_ <| Lucid.toHtml <| "Found " <> slen blackholes <> " blackholes:" Lucid.ul_ <| do - mapM_ (Lucid.toHtml .> Lucid.li_) blackholes + traverse_ (Lucid.toHtml .> Lucid.li_) blackholes Lucid.h3_ <| Lucid.toHtml <| "Found " <> slen liabilities <> " liabilities:" Lucid.ul_ <| do - mapM_ (Lucid.toHtml .> Lucid.li_) liabilities + traverse_ (Lucid.toHtml .> Lucid.li_) liabilities Lucid.h3_ <| Lucid.toHtml <| "Found " <> slen stale <> " stale files:" Lucid.ul_ <| do forM_ stale <| \(path, days) -> @@ -1132,7 +1132,7 @@ analyze keep askedBy activeAuthors url bareRepo = do "HEAD" ] /> String.lines - authors <- mapM (authorsFor bareRepo) tree :: IO [[(Text, Text, Text)]] + authors <- traverse (authorsFor bareRepo) tree :: IO [[(Text, Text, Text)]] let authorMap = zipWith ( \path authors_ -> @@ -1141,7 +1141,7 @@ analyze keep askedBy activeAuthors url bareRepo = do tree authors :: [(FilePath, [(Text, Text, Text)])] - stalenessMap <- mapM (lastTouched bareRepo) tree + stalenessMap <- traverse (lastTouched bareRepo) tree let blackholes = [ Text.pack path | (path, authors_) <- authorMap, |