Skip to content

P
purescript-gargantext
Commit 2f4fde18 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[Tree] fix Search.Ajax.search return type

parent 9c11378e
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/Components/Search/Ajax.purs
View file @ 2f4fde18
...@@ -14,7 +14,7 @@ import URI.Query as Q ...@@ -14,7 +14,7 @@ import URI.Query as Q
searchUrl :: SearchQuery -> String searchUrl :: SearchQuery -> String
searchUrl q = urlPlease Back $ "new" <> Q.print (toQuery q) searchUrl q = urlPlease Back $ "new" <> Q.print (toQuery q)
search :: forall a. DecodeJson a => SearchQuery -> Aff a search :: SearchQuery -> Aff Int
search q = do search q = do
let url = searchUrl q let url = searchUrl q
liftEffect $ log2 "url:" url liftEffect $ log2 "url:" url
......
src/Gargantext/Pages/Layout/Specs/SearchBar.purs
View file @ 2f4fde18
...@@ -54,7 +54,7 @@ onSearchChange (search /\ setSearch) = ...@@ -54,7 +54,7 @@ onSearchChange (search /\ setSearch) =
launchAff $ do launchAff $ do
liftEffect $ log2 "Searching db: " $ show q.database liftEffect $ log2 "Searching db: " $ show q.database
liftEffect $ log2 "Searching term: " q.term liftEffect $ log2 "Searching term: " q.term
(r :: Unit) <- Ajax.search (searchQuery q) r <- Ajax.search (searchQuery q)
liftEffect $ log2 "Return:" r liftEffect $ log2 "Return:" r
liftEffect $ modalShow "addCorpus" liftEffect $ modalShow "addCorpus"
searchQuery {database: Nothing, term} = over SearchQuery (_ {query=term}) defaultSearchQuery searchQuery {database: Nothing, term} = over SearchQuery (_ {query=term}) defaultSearchQuery
......
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