From 2d8b280ed2c73d65fb905a580e9499bb7f69ff01 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 14 Aug 2023 20:48:10 -0400
Subject: Run lint

Idk why these missed the linter. Probably packages updated in the
nixpkgs version bump.
---
 Biz/Dragons.hs | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

(limited to 'Biz/Dragons.hs')

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