diff --git a/src/AnnotationDocumentView.purs b/src/AnnotationDocumentView.purs index 647849336f72e51726f03ecec754e23b90735b4b..028e26e176bd9dbe3e0bacca542e8ff36f263af5 100644 --- a/src/AnnotationDocumentView.purs +++ b/src/AnnotationDocumentView.purs @@ -34,7 +34,8 @@ performAction (ChangeString ps) _ _ = pure unit performAction (ChangeAnotherString ps) _ _ = pure unit -performAction (SetInput ps) _ _ = pure unit +performAction (SetInput ps) _ _ = void do + modifyState \( state) -> state { inputValue = ps } @@ -59,9 +60,9 @@ docview = simpleSpec performAction render [ nav [ ] [ div [className "nav nav-tabs", _id "nav-tab",role "tablist"] - [ a [className "nav-item nav-link active",_id "nav-home-tab" , _data {toggle : "tab"},href "#nav-home" ,role "tab",aria {controls : "nav-home"} ,aria {selected:true}] [ text "Publications (12)"] - , a [className "nav-item nav-link" ,_id "nav-profile-tab", _data {toggle : "tab"},href "#nav-profile",role "tab",aria {controls : "nav-profile"},aria {selected:true}] [ text "Brevets (2)"] - , a [className "nav-item nav-link" ,_id "nav-contact-tab", _data {toggle : "tab"},href "#nav-contact",role "tab",aria {controls : "nav-contact"},aria {selected:true}] [ text "Projets (5)"] + [ a [className "nav-item nav-link active",_id "nav-home-tab" , _data {toggle : "tab"},href "#nav-home" ,role "tab",aria {controls : "nav-home"} ,aria {selected:true}] [ text "STOPLIST"] + , a [className "nav-item nav-link" ,_id "nav-profile-tab", _data {toggle : "tab"},href "#nav-profile",role "tab",aria {controls : "nav-profile"},aria {selected:true}] [ text "MAINLIST"] + , a [className "nav-item nav-link" ,_id "nav-contact-tab", _data {toggle : "tab"},href "#nav-contact",role "tab",aria {controls : "nav-contact"},aria {selected:true}] [ text "MAPLIST"] ] ] diff --git a/src/DocView.purs b/src/DocView.purs index 7523afc1945db15345893d4403e512325cf45b03..ee80714fcfd031e499e87783c63be24d45d22319 100644 --- a/src/DocView.purs +++ b/src/DocView.purs @@ -465,7 +465,7 @@ showRow :: {row :: Corpus, delete :: Boolean} -> ReactElement showRow {row : (Corpus c), delete} = tr [] [ td [] [text c.date] - , td [] [text c.title] + , td [] [ a [ href "#/documentView/1"] [ text c.title ] ] , td [] [text c.source] , td [] [div [className $ fa <> "fa-star"][]] , td [] [input [ _type "checkbox"] []]