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