Commit 0f863d28 authored by Mudada's avatar Mudada

Looking for typeclass, have you seen any ?

parent 7b864b3a
...@@ -31,6 +31,11 @@ import URI.Query as Query ...@@ -31,6 +31,11 @@ import URI.Query as Query
import Web.File.FileReader.Aff (readAsText) import Web.File.FileReader.Aff (readAsText)
import DOM.Simple.Types
import DOM.Simple.Window
import DOM.Simple.EventListener
import Effect.Console
-- Main Node -- Main Node
type NodeMainSpanProps = type NodeMainSpanProps =
( id :: ID ( id :: ID
...@@ -285,7 +290,7 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [ ...@@ -285,7 +290,7 @@ nodePopupView d p mPop@(Just NodePopup /\ setPopupOpen) = R.createElement el p [
componentIsTex (search /\ setSearch) = componentIsTex (search /\ setSearch) =
H.iframe { src: isTexTermUrl search.term , width: "100%", height: "100%"} [] H.iframe { src: isTexTermUrl search.term , width: "100%", height: "100%"} []
isTexUrl = "https://istex.gargantext.org" isTexUrl = "http://0.0.0.0:8080/"--"https://istex.gargantext.org"
isTexLocalUrl = "http://localhost:8083" isTexLocalUrl = "http://localhost:8083"
isTexTermUrl term = isTexUrl <> query isTexTermUrl term = isTexUrl <> query
where where
...@@ -392,3 +397,4 @@ reallyDelete d = H.div {className: "panel-footer"} ...@@ -392,3 +397,4 @@ reallyDelete d = H.div {className: "panel-footer"}
[H.text " Yes, delete!"] [H.text " Yes, delete!"]
] ]
windowCallBack = addEventListener window "message" (callback errorShow)
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