Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
131
Issues
131
List
Board
Labels
Milestones
Merge Requests
3
Merge Requests
3
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
purescript-gargantext
Commits
92fcaf6f
Commit
92fcaf6f
authored
Nov 19, 2018
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX][USER-FORM] building needs work to finalize.
parent
88a6df4c
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
5 deletions
+4
-5
API.purs
src/Gargantext/Pages/Annuaire/User/Contacts/API.purs
+1
-1
Renders.purs
...argantext/Pages/Annuaire/User/Contacts/Specs/Renders.purs
+1
-1
Types.purs
src/Gargantext/Pages/Annuaire/User/Contacts/Types.purs
+2
-3
No files found.
src/Gargantext/Pages/Annuaire/User/Contacts/API.purs
View file @
92fcaf6f
...
...
@@ -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
...
...
src/Gargantext/Pages/Annuaire/User/Contacts/Specs/Renders.purs
View file @
92fcaf6f
...
...
@@ -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
...
...
src/Gargantext/Pages/Annuaire/User/Contacts/Types.purs
View file @
92fcaf6f
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment