diff options
Diffstat (limited to 'Biz/Dragons.hs')
| -rw-r--r-- | Biz/Dragons.hs | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/Biz/Dragons.hs b/Biz/Dragons.hs index d71ca3c..8d33130 100644 --- a/Biz/Dragons.hs +++ b/Biz/Dragons.hs @@ -482,9 +482,10 @@ instance Lucid.ToHtml AnalysisAction where simpleBar :: (Show i, Monad m, Num i) => i -> Integer -> Lucid.HtmlT m () simpleBar n total = do Lucid.table_ [Lucid.class_ "charts-css bar stacked multiple"] <| do - Lucid.tr_ <| do - Lucid.td_ [Lucid.style_ <| size n total] "" - <> Lucid.td_ [Lucid.style_ <| size total total] "" + Lucid.tr_ + <| do + Lucid.td_ [Lucid.style_ <| size n total] "" + <> Lucid.td_ [Lucid.style_ <| size total total] "" len = toInteger <. length slen = tshow <. length @@ -989,7 +990,7 @@ htmlApp jwtCfg cooks kp cfg oAuthArgs = warn msg = Log.warn [msg] >> Log.br - |> liftIO + |> liftIO >> throwError err502 {errBody = str msg} user <- GitHub.userInfoCurrentR @@ -1351,8 +1352,9 @@ instance Lucid.ToHtml Analyses where forM_ analyses <| \AnalysisAction {..} -> Lucid.a_ [ href analysisId, - css <| Biz.Look.marginAll (em 1) - <> Clay.textDecoration Clay.none + css + <| Biz.Look.marginAll (em 1) + <> Clay.textDecoration Clay.none ] <| do Lucid.div_ <| Lucid.toHtml source @@ -1473,7 +1475,8 @@ instance Lucid.ToHtml SelectRepo where Lucid.input_ [ Lucid.type_ "submit", Lucid.class_ "link", - Lucid.value_ <| GitHub.untagName + Lucid.value_ + <| GitHub.untagName <| GitHub.repoName repo ] Lucid.input_ @@ -1673,7 +1676,8 @@ analyzeGitHub keep user@User {userId} ghAuth depo o r = do getPeople :: IO (Vector GitHub.SimpleUser) getPeople = - Async.runConcurrently <| (Vector.++) + Async.runConcurrently + <| (Vector.++) </ Concurrently getCollaborators <*> Concurrently getTopContributors |