Commit 92fcaf6f authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX][USER-FORM] building needs work to finalize.

parent 88a6df4c
...@@ -15,7 +15,7 @@ import Gargantext.Prelude ...@@ -15,7 +15,7 @@ import Gargantext.Prelude
import Gargantext.Pages.Annuaire.User.Contacts.Types (Action(..), State, Contact, _contact) import Gargantext.Pages.Annuaire.User.Contacts.Types (Action(..), State, Contact, _contact)
import Thermite (PerformAction, modifyState) import Thermite (PerformAction, modifyState)
getContact :: Int -> Aff (Contact Void Void) getContact :: Int -> Aff (Contact String String)
getContact id = get $ toUrl Back Node id getContact id = get $ toUrl Back Node id
fetchContact :: Int -> StateCoTransformer State Unit fetchContact :: Int -> StateCoTransformer State Unit
......
...@@ -55,7 +55,7 @@ mapMyMap f m = toUnfoldable ...@@ -55,7 +55,7 @@ mapMyMap f m = toUnfoldable
infixl 4 mapMyMap as <.~$> infixl 4 mapMyMap as <.~$>
contactInfos :: HyperData Void Void -> ReactElement contactInfos :: HyperData String String -> ReactElement
contactInfos hyperdata = contactInfos hyperdata =
ul [className "list-group"] [] {- $ ul [className "list-group"] [] {- $
listInfo <.~$> hyperdata listInfo <.~$> hyperdata
......
...@@ -13,7 +13,6 @@ import React.DOM (div) ...@@ -13,7 +13,6 @@ import React.DOM (div)
import Gargantext.Components.Tab as Tab import Gargantext.Components.Tab as Tab
import Gargantext.Utils.DecodeMaybe ((.?|)) import Gargantext.Utils.DecodeMaybe ((.?|))
import Gargantext.Utils.Renderable
data Contact c s = Contact { data Contact c s = Contact {
id :: Int id :: Int
...@@ -62,7 +61,7 @@ data Action ...@@ -62,7 +61,7 @@ data Action
type State = type State =
{ activeTab :: Int { activeTab :: Int
, contact :: Maybe (Contact ) , contact :: Maybe (Contact String String)
} }
initialState :: State initialState :: State
...@@ -71,7 +70,7 @@ initialState = ...@@ -71,7 +70,7 @@ initialState =
, contact: Nothing , contact: Nothing
} }
_contact :: Lens' State (Maybe (Contact Unit Unit)) _contact :: Lens' State (Maybe (Contact String String))
_contact = lens (\s -> s.contact) (\s ss -> s{contact = ss}) _contact = lens (\s -> s.contact) (\s ss -> s{contact = ss})
_tablens :: Lens' State Tab.State _tablens :: Lens' State Tab.State
......
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