diff options
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 |