From 41b4511a947591257c37b125db081b71b8a3005c Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Fri, 9 Feb 2024 05:23:07 +0100
Subject: [PATCH] Use (#) instead of ($) for multi-line function chaining.

---
 spago.dhall                |  1 -
 src/App/Container.purs     |  9 ---------
 src/App/ZoneInterface.purs | 35 +++++++++++++++++------------------
 3 files changed, 17 insertions(+), 28 deletions(-)

diff --git a/spago.dhall b/spago.dhall
index 3fe85c7..2045e82 100644
--- a/spago.dhall
+++ b/spago.dhall
@@ -15,7 +15,6 @@
   , "effect"
   , "either"
   , "exceptions"
-  , "foldable-traversable"
   , "foreign"
   , "generic-parser"
   , "halogen"
diff --git a/src/App/Container.purs b/src/App/Container.purs
index 896bc2c..2bc0042 100644
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@@ -195,15 +195,6 @@ render state
     render_dnsmanager_WS :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad
     render_dnsmanager_WS = HH.slot _ws_dns unit WS.component "ws://127.0.0.1:8081" DNSManagerDaemonEvent
 
-    --case state.token of
-    --  Just _ -> Bulma.box $
-    --    [ HH.slot _dli unit DomainListInterface.component unit DomainListComponentEvent
-    --    ]
-    --  Nothing -> render_nothing
-
-    render_nothing :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad
-    render_nothing = HH.div_ []
-
 handleAction :: forall o monad. MonadAff monad => Action -> H.HalogenM State Action ChildSlots o monad Unit
 handleAction = case _ of
   Routing page -> do
diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs
index 747d88b..f2eaeb4 100644
--- a/src/App/ZoneInterface.purs
+++ b/src/App/ZoneInterface.purs
@@ -20,14 +20,14 @@ module App.ZoneInterface where
 import Prelude (Unit, unit, void
                , bind, pure
                , comparing, discard, map, show
-               , ($), (/=), (<<<), (<>), (==), (>))
+               , ($), (/=), (<<<), (<>), (==), (>), (#))
 
 import Data.Array as A
 import Data.Int (fromString)
 import Data.ArrayBuffer.Types (ArrayBuffer)
 import Data.Array.NonEmpty as NonEmpty
 import Data.Either (Either(..))
-import Data.Foldable as Foldable
+-- import Data.Foldable as Foldable
 import Data.Maybe (Maybe(..), fromMaybe, maybe)
 import Effect.Aff.Class (class MonadAff)
 import Halogen as H
@@ -259,10 +259,11 @@ render state
       ]
   where
     sorted :: forall l. Array (SortableRecord (l)) -> Array (SortableRecord (l))
-    sorted array = Foldable.foldl (<>) []
-      $ map (A.sortBy (comparing (_.rrid)))
-      $ map NonEmpty.toArray
-      $ A.groupAllBy (comparing (_.rrtype)) array
+    sorted array =
+      A.groupAllBy (comparing (_.rrtype)) array    -- [x2 z2 x1 y z1 z3] -> [ NE[x2x1] NE[y] NE[z2z1z3] ]
+      # map NonEmpty.toArray                       -- -> [[x2x1][y][z2z1z3]]
+      # map (A.sortBy (comparing (_.rrid)))        -- -> [[x1x2][y][z1z2z3]]
+      # A.concat                                   -- -> [x1 x2 y z1 z2 z3]
 
     modal_rr_delete :: forall w. Int -> HH.HTML w Action
     modal_rr_delete rr_id =
@@ -727,22 +728,20 @@ render_resources records
   render_mx_records = table_content all_mx_rr
   render_srv_records = table_content all_srv_rr
 
-  table_content_with_separations records_ = HH.tbody_ $ split_records
-    where
-    split_records = A.concat                         -- [[hh],[line],[hh],[line],[h]] -> [h h line h h line h]
-      $ map A.concat                                 -- [[hh],[line],[hh],[line],[h]] -> [h h line h h line h]
-      $ A.intersperse [emptyline]                    -- [[hh], [hh], [h]] -> [[hh],[line],[hh],[line],[h]]
-      $ map (map rows)                               -- [[xx], [yy], [z]] -> [[hh], [hh], [h]] ('h' means 'html')
-      $ map NonEmpty.toArray                         -- [NE[xx], NE[yy], NE[z]] -> [[xx], [yy], [z]]
-      $ A.groupAllBy (comparing (_.rrtype)) records_ -- [x x y y z] -> [NE[xx], NE[yy], NE[z]]
+  table_content_with_separations records_ = HH.tbody_ $
+    A.groupAllBy (comparing (_.rrtype)) records_ -- [x x y y z] -> [NE[xx], NE[yy], NE[z]]
+    # map NonEmpty.toArray                       -- -> [[xx], [yy], [z]]
+    # map (map rows)                             -- -> [[hh], [hh], [h]] ('h' means 'html')
+    # A.intersperse [emptyline]                  -- -> [[hh],[line],[hh],[line],[h]]
+    # A.concat                                   -- -> [h h line h h line h]
 
-    emptyline = [ HH.tr_ [ Bulma.txt_name "", HH.td_ [], HH.td_ [], HH.td_ [], HH.td_ [], HH.td_ [] ] ]
+  emptyline = HH.tr_ [ Bulma.txt_name "", HH.td_ [], HH.td_ [], HH.td_ [], HH.td_ [], HH.td_ [] ]
 
-  table_content records_ = HH.tbody_ $ A.concat $ map rows records_
-  rows rr = [ HH.tr_ $ render_row rr ] -- <> error_row rr
+  table_content records_ = HH.tbody_ $ map rows records_
+  rows rr = HH.tr_ $ render_row rr -- <> error_row rr
 
   render_row :: ResourceRecord -> Array (HH.HTML w Action)
-  render_row rr = 
+  render_row rr =
     case rr.rrtype of
       "SRV" ->
         [ Bulma.txt_name rr.rrtype