Commit 67076ea7 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[ngrams] some restyling of code

parent 456fa548
Pipeline #1965 failed with stage
...@@ -289,8 +289,8 @@ loadedNgramsTableHeaderCpt :: R.Component LoadedNgramsTableHeaderProps ...@@ -289,8 +289,8 @@ loadedNgramsTableHeaderCpt :: R.Component LoadedNgramsTableHeaderProps
loadedNgramsTableHeaderCpt = here.component "loadedNgramsTableHeader" cpt where loadedNgramsTableHeaderCpt = here.component "loadedNgramsTableHeader" cpt where
cpt { searchQuery } _ = do cpt { searchQuery } _ = do
pure $ R.fragment pure $ R.fragment
[ H.h4 {style: {textAlign : "center"}} [ H.h4 { style: { textAlign : "center" } }
[ H.span {className: "fa fa-hand-o-down"} [] [ H.span { className: "fa fa-hand-o-down" } []
, H.text "Extracted Terms" ] , H.text "Extracted Terms" ]
, NTC.searchInput { key: "search-input" , NTC.searchInput { key: "search-input"
, searchQuery } , searchQuery }
......
...@@ -36,9 +36,9 @@ searchInputCpt :: R.Component SearchInputProps ...@@ -36,9 +36,9 @@ searchInputCpt :: R.Component SearchInputProps
searchInputCpt = here.component "searchInput" cpt searchInputCpt = here.component "searchInput" cpt
where where
cpt { searchQuery } _ = do cpt { searchQuery } _ = do
pure $ R2.row [ pure $ R2.row
H.div { className: "col-12" } [ [ H.div { className: "col-12" }
H.div { className: "input-group" } [ H.div { className: "input-group" }
[ searchButton { searchQuery } [] [ searchButton { searchQuery } []
, searchFieldInput { searchQuery } [] , searchFieldInput { searchQuery } []
] ]
......
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