GO button added

3a214893 · Abinaya Sudhir · dbe0f774 · 3a214893
Commit 3a214893 authored Mar 09, 2018 by Abinaya Sudhir
Hide 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,8 +109,11 @@ fn1 :: Response -> ReactElement
 fn1 (Response o) =
  li [className "list-group-item justify-content-between"]
  [
-    span [] [text  o.name]
-  ,  span [className "badge badge-default badge-pill"] [ text $ show o.count]
+    a [ href "#",onClick  \_ -> dispatch $ Submit]
+    [ span [] [text  o.name]
+    ,  span [className "badge badge-default badge-pill"] [ text $ show o.count]
+    ]
+
  ]