diff --git a/src/CorpusAnalysis.purs b/src/CorpusAnalysis.purs index 85c6f1b4af0ac9666e84687e5c2fa4604860bdce..5bdaa970bc3c9276fe2884144a0db47c75c08336 100644 --- a/src/CorpusAnalysis.purs +++ b/src/CorpusAnalysis.purs @@ -30,7 +30,7 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render render dispatch _ state _ = [ div [className "row"] [ div [className "col-md-3"] - [ h3 [] [text "Bisphenol A"] + [ h3 [] [text "IMT Global publications"] ] , div [className "col-md-9"] @@ -41,18 +41,18 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render [ div [className "jumbotron1", style {padding : "12px 0px 20px 12px"}] [ div [ className "col-md-8 content"] [ p [] [ i [className "fa fa-globe"] [] - , text " IsTex, PubMed, Hal" + , text " Hal Database" ] , p [] [ i [className "fab fa-searchengin"] [] - , text " Query: bisphenol + A OR bpa" + , text " Query: all publications with all schools ids" ] ] , div [ className "col-md-4 content"] [ p [] [ i [className "fa fa-calendar"] [] - , text " Sept. 11 2017, 10:59 am" + , text " June. 26 2018, 10:59 am" ] , p [] [ i [className "fa fa-user"] [] - , text " Author(s): gargantua" + , text " Author(s): françois.pineau" ] ] ] diff --git a/src/DocAnnotation.purs b/src/DocAnnotation.purs index e4d860db01b82bc6370629d718d07d43ca26558d..fc5c36843ebba9f0a9702043efdea72b44feb07e 100644 --- a/src/DocAnnotation.purs +++ b/src/DocAnnotation.purs @@ -105,7 +105,7 @@ docview = simpleSpec performAction render , span [className "badge badge-default badge-pill"] [text "source"] ] , li [className "list-group-item justify-content-between"] - [ span [] [text "Luciano Alonso, Vicente Milanes, Carlos Torre-Ferarro, Jorge Godoy, Juan P oria, Teresa de pedro"] + [ a [href "http://localhost:2015/#/userPage"] [text "Luciano Alonso, Vicente Milanes, Carlos Torre-Ferarro, Jorge Godoy, Juan P oria, Teresa de pedro"] , span [className "badge badge-default badge-pill"] [text "authors"] ] diff --git a/src/DocView.purs b/src/DocView.purs index 5289c994db468572df81052005e1b2b8dc108245..8ca1f1a5e991f35e3d67cde8ec26bf07d3dbef29 100644 --- a/src/DocView.purs +++ b/src/DocView.purs @@ -110,7 +110,6 @@ newtype Hyperdata = Hyperdata } - instance decodeHyperdata :: DecodeJson Hyperdata where decodeJson json = do obj <- decodeJson json @@ -118,7 +117,6 @@ instance decodeHyperdata :: DecodeJson Hyperdata where source <- obj .? "source" pure $ Hyperdata { title,source } - instance decodeResponse :: DecodeJson Response where decodeJson json = do obj <- decodeJson json diff --git a/src/Navigation.purs b/src/Navigation.purs index 09003882ca327356b28607ccb091bc8daecb91ce..7a7b70043d4e7739faf1c9a1140afc7b5f4801a6 100644 --- a/src/Navigation.purs +++ b/src/Navigation.purs @@ -36,7 +36,6 @@ import SearchForm as S import Tabview as TV import Thermite (PerformAction, Render, Spec, _render, cotransform, defaultPerformAction, defaultRender, focus, modifyState, simpleSpec, withState) import Unsafe.Coerce (unsafeCoerce) ---import UserPage as UP import Gargantext.Users as U import NgramsTable as NG import Gargantext.Dashboard as Dsh