Remove useless calls to unsafeSet

src/Gargantext/Components/DocsTable/SubcorpusCreation.purs

@@ -7,7 +7,6 @@ import Gargantext.Hooks.StateRecord (useStateRecord)
 import Gargantext.Components.Bootstrap as B
 import Gargantext.Components.Bootstrap.Types (ButtonVariant(..), ComponentStatus(..), Variant(..))
 import Gargantext.Utils.Reactix as R2
-import Record.Unsafe (unsafeSet)
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Toestand as T
@@ -30,7 +29,7 @@ component = R.hooksComponent "subcorpusCreation" cpt
     let
       onParentListCheckboxChange :: Boolean -> Effect Unit
       onParentListCheckboxChange value = T.modify_
-        (\prev -> unsafeSet "reuseParentList" value prev)
+        (\prev -> prev { reuseParentList = value })
         stateBox
 
     pure $ H.div {}
@@ -58,4 +57,4 @@ type FormData = { reuseParentList :: Boolean }
 defaultData :: FormData
 defaultData =
   { reuseParentList: true
-  }
+  }
\ No newline at end of file

src/Gargantext/Components/Login/LoginForm.purs

@@ -30,7 +30,6 @@ import Gargantext.Utils.Reactix as R2
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Record as Record
-import Record.Unsafe (unsafeSet)
 import Toestand as T
 
 here :: R2.Here
@@ -119,13 +118,13 @@ componentCpt = here.component "main" cpt
       -- @XXX StateRecord with distinct value types
       onAgreedCheckboxChange :: Boolean -> Effect Unit
       onAgreedCheckboxChange value = T.modify_
-        (\prev -> unsafeSet "agreed" value prev)
+        (\prev -> prev { agreed = value })
         stateBox
 
       -- @XXX StateRecord with distinct value types
       onAgreedLabelClick :: Unit -> Effect Unit
       onAgreedLabelClick _ = T.modify_
-        (\prev -> unsafeSet "agreed" (not state.agreed) prev)
+        (\prev -> prev { agreed = not state.agreed })
         stateBox
 
     -- | Render