Slight refactor for clarity

1 files changed, 4 insertions, 9 deletions

diff --git a/Biz/Devalloc.hs b/Biz/Devalloc.hs
index cb09f10..a806d65 100644
--- a/Biz/Devalloc.hs
+++ b/Biz/Devalloc.hs
@@ -230,11 +230,10 @@ data Analysis = Analysis
 
 instance Lucid.ToHtml Analysis where
   toHtmlRaw = Lucid.toHtml
-  toHtml analysis =
-    Lucid.toHtml <| render
+  toHtml = Lucid.toHtml . render
     where
-      render :: Lucid.Html ()
-      render =
+      render :: Analysis -> Lucid.Html ()
+      render analysis =
         Lucid.div_ <| do
           Lucid.h1_ "Analysis Results"
           Lucid.p_ (Lucid.toHtml <| Text.pack <| show <| targetRepo analysis)
@@ -248,11 +247,7 @@ encodeParams =
     . Web.FormUrlEncoded.urlEncodeParams
 
 selectRepo :: Vector GitHub.Repo -> Lucid.Html ()
-selectRepo repos =
-  repos
-    |> Vector.toList
-    |> mapM_ render
-    |> Lucid.ul_
+selectRepo = Lucid.ul_ . mapM_ render . Vector.toList
   where
     render :: GitHub.Repo -> Lucid.Html ()
     render repo =