Skip to content

P
purescript-gargantext
Commit e3692308 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Array / List for getCorpusInfo.

parent f8dd0be6
Expand all Show whitespace changes
Inline Side-by-side
Showing with 11 additions and 179 deletions
src/Gargantext/Components/Nodes/Corpus/Types.purs
View file @ e3692308
module Gargantext.Components.Nodes.Corpus.Types where module Gargantext.Components.Nodes.Corpus.Types where
import Data.Maybe (Maybe(..)) import Data.Maybe (Maybe(..))
import Data.Array (head)
import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, (.:), (.:?), (:=), (~>), jsonEmptyObject) import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, (.:), (.:?), (:=), (~>), jsonEmptyObject)
import Data.Either (Either(..)) import Data.Either (Either(..))
import Data.Generic.Rep (class Generic) import Data.Generic.Rep (class Generic)
...@@ -70,8 +69,8 @@ isJSON :: FieldType -> Boolean ...@@ -70,8 +69,8 @@ isJSON :: FieldType -> Boolean
isJSON (JSON _) = true isJSON (JSON _) = true
isJSON _ = false isJSON _ = false
getCorpusInfo :: Array (Field FieldType) -> CorpusInfo getCorpusInfo :: List.List (Field FieldType) -> CorpusInfo
getCorpusInfo as = case head as of getCorpusInfo as = case List.head as of
Just (Field {typ: JSON {authors, desc,query,title}}) -> CorpusInfo { title Just (Field {typ: JSON {authors, desc,query,title}}) -> CorpusInfo { title
, desc , desc
, query , query
......
yarn.lock
View file @ e3692308
This diff is collapsed.
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