Skip to content

P
purescript-gargantext
Commit 858d1150 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Warnings

parent 31f523bf
Show whitespace changes
Inline Side-by-side
Showing with 7 additions and 26 deletions
src/Gargantext/Components/Forest/Tree/Node/Action/Contact.purs
View file @ 858d1150
module Gargantext.Components.Forest.Tree.Node.Action.Contact where module Gargantext.Components.Forest.Tree.Node.Action.Contact where
import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>))
import Data.Argonaut as Argonaut
import Data.Generic.Rep (class Generic)
import Data.Generic.Rep.Show (genericShow)
import Data.Maybe (Maybe(..))
import Data.Maybe (Maybe(..))
import Data.Maybe (Maybe(..)) import Data.Maybe (Maybe(..))
import Data.Tuple.Nested ((/\)) import Data.Tuple.Nested ((/\))
import Effect.Aff (Aff) import Effect.Aff (Aff, launchAff)
import Effect.Aff (Aff)
import Effect.Uncurried (mkEffectFn1) import Effect.Uncurried (mkEffectFn1)
import Gargantext.Components.Forest.Tree.Node.Action.Contact.Types (AddContactParams(..))
import Gargantext.Components.Forest.Tree.Node.Action (Action)
import Gargantext.Components.Forest.Tree.Node.Action (Action) import Gargantext.Components.Forest.Tree.Node.Action (Action)
import Gargantext.Components.Forest.Tree.Node.Action as Action import Gargantext.Components.Forest.Tree.Node.Action.Contact.Types (AddContactParams(..))
import Gargantext.Components.Forest.Tree.Node.Action as Action -- import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel) import Gargantext.Prelude (Unit, bind, const, discard, pure, (<<<), (<>))
import Gargantext.Components.Forest.Tree.Node.Tools as Tools
import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
import Effect.Aff (Aff, launchAff)
import Gargantext.Utils.Reactix as R2
import Gargantext.Prelude
import Gargantext.Prelude (class Eq, class Read, class Show)
import Gargantext.Routes (SessionRoute(..))
import Gargantext.Routes as GR import Gargantext.Routes as GR
import Gargantext.Sessions (Session, post) import Gargantext.Sessions (Session, post)
import Gargantext.Sessions (Session, put_)
import Gargantext.Types (ID) import Gargantext.Types (ID)
import Gargantext.Types as GT import Gargantext.Types as GT
import Gargantext.Types as GT import Gargantext.Utils.Reactix as R2
import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson, genericEnumDecodeJson, genericEnumEncodeJson)
import Prelude (($)) import Prelude (($))
import Reactix as R import Reactix as R
import Reactix as R
import Reactix.DOM.HTML as H import Reactix.DOM.HTML as H
------------------------------------------------------------------------ ------------------------------------------------------------------------
...@@ -58,8 +39,8 @@ textInputBox p@{ boxName, boxAction, dispatch, isOpen: (true /\ setIsOpen), para ...@@ -58,8 +39,8 @@ textInputBox p@{ boxName, boxAction, dispatch, isOpen: (true /\ setIsOpen), para
where where
{firstname, lastname} = params {firstname, lastname} = params
el = R.hooksComponent (boxName <> "Box") cpt el = R.hooksComponent (boxName <> "Box") cpt
cpt {id, params} _ = do cpt {id, params:params'} _ = do
let {firstname, lastname} = params let {firstname, lastname} = params'
stateFirstname <- R.useState' firstname stateFirstname <- R.useState' firstname
stateLastname <- R.useState' lastname stateLastname <- R.useState' lastname
pure $ H.div {className: "from-group row-no-padding"} pure $ H.div {className: "from-group row-no-padding"}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment