Skip to content

P
purescript-gargantext
Commit 3a214893 authored by Abinaya Sudhir's avatar Abinaya Sudhir
Browse files
Options

GO button added

parent dbe0f774
Show whitespace changes
Inline Side-by-side
Showing with 6 additions and 2 deletions
src/AddCorpusview.purs
View file @ 3a214893
...@@ -96,6 +96,7 @@ addcorpusviewSpec = simpleSpec performAction render ...@@ -96,6 +96,7 @@ addcorpusviewSpec = simpleSpec performAction render
[ [
h3 [] [text "Corpusview"] h3 [] [text "Corpusview"]
, ul [className "list-group"] $ map fn1 state.response , ul [className "list-group"] $ map fn1 state.response
, button [] [text "GO"]
] ]
] ]
...@@ -108,10 +109,13 @@ fn1 :: Response -> ReactElement ...@@ -108,10 +109,13 @@ fn1 :: Response -> ReactElement
fn1 (Response o) = fn1 (Response o) =
li [className "list-group-item justify-content-between"] li [className "list-group-item justify-content-between"]
[ [
span [] [text o.name] a [ href "#",onClick \_ -> dispatch $ Submit]
[ span [] [text o.name]
, span [className "badge badge-default badge-pill"] [ text $ show o.count] , span [className "badge badge-default badge-pill"] [ text $ show o.count]
] ]
]
newtype QueryString = QueryString newtype QueryString = QueryString
{ {
......
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