From cb9cfecab9213d002311bf2c2f4be916dc428e6a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Tue, 20 Nov 2018 16:05:36 +0100
Subject: [PATCH] [DEP] Adding PSCI dep for the repl [FIX] Document view for
corpus
---
psc-package.json | 1 +
src/Gargantext/Config.purs | 2 +-
src/Gargantext/Pages/Corpus/Document.purs | 6 +++++-
3 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/psc-package.json b/psc-package.json
index d121dfa3..d701a392 100644
--- a/psc-package.json
+++ b/psc-package.json
@@ -3,6 +3,7 @@
"set": "master",
"source": "https://github.com/np/package-sets.git",
"depends": [
+ "psci-support",
"css",
"generics-rep",
"routing",
diff --git a/src/Gargantext/Config.purs b/src/Gargantext/Config.purs
index c0543384..a8191286 100644
--- a/src/Gargantext/Config.purs
+++ b/src/Gargantext/Config.purs
@@ -31,7 +31,7 @@ endConfig' v = { front : frontCaddy
-- until authentication implementation
-- (Default Root will be given after authentication)
defaultRoot :: Int
-defaultRoot = 347474
+defaultRoot = 943779
------------------------------------------------------------------------
frontCaddy :: Config
frontCaddy = { proto : "http://"
diff --git a/src/Gargantext/Pages/Corpus/Document.purs b/src/Gargantext/Pages/Corpus/Document.purs
index cb7c96d4..8ede57ea 100644
--- a/src/Gargantext/Pages/Corpus/Document.purs
+++ b/src/Gargantext/Pages/Corpus/Document.purs
@@ -110,6 +110,7 @@ data Document =
, publication_month :: Maybe Int
, publication_year :: Maybe Int
, source :: Maybe String
+ , institutes :: Maybe String
, title :: Maybe String
, uniqId :: Maybe String
--, url :: Maybe String
@@ -144,6 +145,7 @@ defaultDocument =
, publication_month : Nothing
, publication_year : Nothing
, source : Nothing
+ , institutes : Nothing
, title : Nothing
, uniqId : Nothing
--, url : Nothing
@@ -230,7 +232,8 @@ instance decodeDocument :: DecodeJson Document
publication_day <- obj .?? "publication_day"
publication_month <- obj .?? "publication_month"
publication_year <- obj .?? "publication_year"
- source <- obj .?? "source"
+ source <- obj .?? "sources"
+ institutes <- obj .?? "institutes"
title <- obj .?? "title"
uniqId <- obj .?? "uniqId"
--url <- obj .? "url"
@@ -249,6 +252,7 @@ instance decodeDocument :: DecodeJson Document
, publication_month
, publication_year
, source
+ , institutes
, title
, uniqId
--, url
--
2.21.0