Commit 35405f46 authored by Karen Konou's avatar Karen Konou

fix compile

parent ef026ddb
...@@ -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" cpt shareURLcpt = R2.hereComponent here "shareURL" hCpt
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
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