GO button added

3a214893 · Abinaya Sudhir · dbe0f774 · 3a214893
Commit 3a214893 authored Mar 09, 2018 by Abinaya Sudhir
Show whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

AddCorpusview.purs src/AddCorpusview.purs +6 -2

No files found.
--- a/src/AddCorpusview.purs
+++ b/src/AddCorpusview.purs
@@ -96,6 +96,7 @@ addcorpusviewSpec = simpleSpec performAction render
             [
               h3 [] [text "Corpusview"]
             , ul [className "list-group"] $ map fn1 state.response
+             , button [] [text "GO"]
             ]

           ]
@@ -108,10 +109,13 @@ fn1 :: Response -> ReactElement
 fn1 (Response o) =
  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]
    ]

+  ]
+

 newtype QueryString = QueryString
  {