Commit 4981cc3f authored by Alexandre Delanoë's avatar Alexandre Delanoë

[MERGE] fix conflicts.

parents 015011ca e9191d83
......@@ -170,3 +170,6 @@ li
.tab-pane
.reload-btn
padding-right: 6px
......@@ -312,3 +312,7 @@ submitButton node_id (datafield /\ _) (term /\ _) (lang /\ _) (_ /\ setSearch) =
case term of
"" -> setSearch $ const Nothing
_ -> setSearch $ const $ Just {datafield, term, lang, node_id}
......@@ -355,3 +355,4 @@ instance encodeJsonSearchQuery :: EncodeJson SearchQuery where
performSearch :: forall a. DecodeJson a => Session -> SearchQuery -> Aff a
performSearch session q = post session q q
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