diff options
| author | Ben Sima <ben@bsima.me> | 2021-08-30 20:19:13 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-11-26 13:47:38 -0500 |
| commit | 09882de5f3cbfd62d59b9ec94723a90d67555b7d (patch) | |
| tree | 69f1c1fb85b7706e83be35c93fbd9d63d1b07dec /Biz/Dragons.hs | |
| parent | 1a5ea40711e35f8b108d10a0667423926d63fd34 (diff) | |
Update to ghc 8.10.4
This also makes some changes to the build tooling to clean up the environment a
bit, and get us closer to 'bild -s'.
Diffstat (limited to 'Biz/Dragons.hs')
| -rw-r--r-- | Biz/Dragons.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Biz/Dragons.hs b/Biz/Dragons.hs index 4294172..e6b5368 100644 --- a/Biz/Dragons.hs +++ b/Biz/Dragons.hs @@ -992,7 +992,7 @@ htmlApp cooks kp cfg jwk oAuthArgs = Right repos -> pure <. App.Html <| SelectRepo user repos, getAnalyses = guardAuth - >=> \user@User {..} -> + >=> \user@User {} -> GetAnalysesByAsker user |> Acid.query' kp +> Analyses user @@ -1278,7 +1278,7 @@ instance App.HasCss Analyses where instance Lucid.ToHtml Analyses where toHtmlRaw = Lucid.toHtml - toHtml (Analyses user@User {..} analyses) = do + toHtml (Analyses user@User {} analyses) = do header <| Just user Lucid.main_ <| do Lucid.section_ <| do |