Add a (still commented) function to refactor update code.

src/App/ZoneInterface.purs

@@ -477,6 +477,18 @@ handleAction = case _ of
             $ DNSManager.MkAddRR { domain: d, rr: newrr }
           H.raise $ MessageToSend message
 
+--    try_update_entry d validation v t = case v of
+--      Nothing -> H.raise $ Log $ SimpleLog $ "Cannot find " <> t <> " RR with this rrid"
+--      Just local_rr -> do
+--        case validation local_rr of
+--          Left _ -> H.raise $ Log $ SimpleLog $ "Cannot update this " <> t <> " RR, some errors occured in the record"
+--          Right rr -> do
+--            H.raise $ Log $ SimpleLog $ "Save " <> t <> " RR"
+--            message <- H.liftEffect
+--              $ DNSManager.serialize
+--              $ DNSManager.MkUpdateRR { domain: d, rr: rr }
+--            H.raise $ MessageToSend message
+
 handleQuery :: forall a m. MonadAff m => Query a -> H.HalogenM State Action () Output m (Maybe a)
 handleQuery = case _ of