Commit d6327f99 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[ERGO] count clockwise cycle ergonomy.

parent 9087b8f2
...@@ -179,7 +179,7 @@ searchBar (query /\ setQuery) = R.createElement el {} [] ...@@ -179,7 +179,7 @@ searchBar (query /\ setQuery) = R.createElement el {} []
pure $ H.div {className: "row"} pure $ H.div {className: "row"}
[ H.div {className: "col col-md-3"} [] [ H.div {className: "col col-md-3"} []
, H.div {className: "col col-md-1"} [searchButton queryText] , H.div {className: "col col-md-1"} [if query /= "" then clearButton else H.div {} []]
, H.div {className: "col col-md-3 form-group"} , H.div {className: "col col-md-3 form-group"}
[ H.input { type: "text" [ H.input { type: "text"
, className: "form-control" , className: "form-control"
...@@ -187,7 +187,7 @@ searchBar (query /\ setQuery) = R.createElement el {} [] ...@@ -187,7 +187,7 @@ searchBar (query /\ setQuery) = R.createElement el {} []
, placeholder: query , placeholder: query
, defaultValue: query} , defaultValue: query}
] ]
, H.div {className: "col col-md-1"} [if query /= "" then clearButton else H.div {} []] , H.div {className: "col col-md-1"} [searchButton queryText]
] ]
onSearchChange :: forall e. R.State Query -> e -> Effect Unit onSearchChange :: forall e. R.State Query -> e -> Effect Unit
......
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