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
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
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
Grégoire Locqueville
purescript-gargantext
Commits
35405f46
Commit
35405f46
authored
Apr 11, 2024
by
Karen Konou
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix compile
parent
ef026ddb
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
Share.purs
src/Gargantext/Components/Forest/Tree/Node/Action/Share.purs
+5
-4
No files found.
src/Gargantext/Components/Forest/Tree/Node/Action/Share.purs
View file @
35405f46
...
@@ -156,10 +156,11 @@ shareURL :: R2.Component ShareURL
...
@@ -156,10 +156,11 @@ shareURL :: R2.Component ShareURL
shareURL = R.createElement shareURLcpt
shareURL = R.createElement shareURLcpt
shareURLcpt :: R.Component ShareURL
shareURLcpt :: R.Component ShareURL
shareURLcpt =
here.component "shareURL" c
pt
shareURLcpt =
R2.hereComponent here "shareURL" hC
pt
where
where
cpt {nodeType, id, session} _ = do
hCpt hp {nodeType, id, session} _ = do
useLoader { errorHandler
useLoader { errorHandler: Just errorHandler
, herePrefix: hp
, loader: loadUrl
, loader: loadUrl
, path: {nodeType, id, session}
, path: {nodeType, id, session}
, render: \url -> shareURLInner {url} [] }
, render: \url -> shareURLInner {url} [] }
...
@@ -172,7 +173,7 @@ shareURLInnercpt :: R.Component ( url :: String )
...
@@ -172,7 +173,7 @@ shareURLInnercpt :: R.Component ( url :: String )
shareURLInnercpt = here.component "shareURLInner" cpt
shareURLInnercpt = here.component "shareURLInner" cpt
where
where
cpt { url } _ = do
cpt { url } _ = do
pure $ Tools.panel
[ H.div {} [ H.text url ] ] ( H.div {} [] )
pure $ Tools.panel
{ mError: Nothing } [ H.div {} [ H.text url ] ]
loadUrl :: { session :: Session, id :: NodeID, nodeType :: NodeType } -> AffRESTError String
loadUrl :: { session :: Session, id :: NodeID, nodeType :: NodeType } -> AffRESTError String
loadUrl { session, id, nodeType } = get session $ GR.ShareURL id nodeType
loadUrl { session, id, nodeType } = get session $ GR.ShareURL id nodeType
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