Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Grégoire Locqueville
purescript-gargantext
Commits
0c379866
Commit
0c379866
authored
Jul 28, 2020
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[API FIX] doc table + graph doc search
parent
32d99abb
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
3 deletions
+11
-3
DocsTable.purs
src/Gargantext/Components/DocsTable.purs
+11
-3
No files found.
src/Gargantext/Components/DocsTable.purs
View file @
0c379866
...
@@ -87,10 +87,16 @@ newtype DocumentsView
...
@@ -87,10 +87,16 @@ newtype DocumentsView
, url :: String
, url :: String
}
}
{-
derive instance genericDocumentsView :: Generic DocumentsView _
derive instance genericDocumentsView :: Generic DocumentsView _
instance showDocumentsView :: Show DocumentsView where
instance showDocumentsView :: Show DocumentsView where
show = genericShow
show = genericShow
instance decodeJsonSearchType :: Argonaut.DecodeJson SearchType where
decodeJson = genericSumDecodeJson
instance encodeJsonSearchType :: Argonaut.EncodeJson SearchType where
encodeJson = genericSumEncodeJson
-}
instance decodeDocumentsView :: DecodeJson DocumentsView where
instance decodeDocumentsView :: DecodeJson DocumentsView where
decodeJson json = do
decodeJson json = do
obj <- decodeJson json
obj <- decodeJson json
...
@@ -119,6 +125,7 @@ newtype Response = Response
...
@@ -119,6 +125,7 @@ newtype Response = Response
, hyperdata :: Hyperdata
, hyperdata :: Hyperdata
, category :: Category
, category :: Category
, ngramCount :: Int
, ngramCount :: Int
, title :: String
}
}
...
@@ -141,10 +148,11 @@ instance decodeResponse :: DecodeJson Response where
...
@@ -141,10 +148,11 @@ instance decodeResponse :: DecodeJson Response where
decodeJson json = do
decodeJson json = do
obj <- decodeJson json
obj <- decodeJson json
cid <- obj .: "id"
cid <- obj .: "id"
favorite <- obj .: "favorite
"
category <- obj .: "category
"
ngramCount <- obj .: "id"
ngramCount <- obj .: "id"
title <- obj .: "title"
hyperdata <- obj .: "hyperdata"
hyperdata <- obj .: "hyperdata"
pure $ Response { cid,
category: decodeCategory favorite
, ngramCount, hyperdata }
pure $ Response { cid,
title, category: decodeCategory category
, ngramCount, hyperdata }
docViewLayout :: Record LayoutProps -> R.Element
docViewLayout :: Record LayoutProps -> R.Element
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment