Merge branch 'dev' into 79-dev-rewrite-better-record-syntax

bin/gargantext-hs.gource

@@ -6,10 +6,10 @@ DATE="2018-03-08 07:18:18"
 # use tutoriel code
 
 #tmux -d video
-xterm -e "tutoriel"
+#xterm -e "tutoriel"
 
 gource --start-date $DATE ../gargantext-hs &
-gource --start-date $DATE gargantext-hs/purescript-gargantext
+gource --start-date $DATE ../gargantext-hs/purescript-gargantext
 #tmux -a video
 
 # Share video ?

bin/install

 #!/bin/bash
 
-stack install --profile --test --fast # --haddock
+stack install --nix --profile --test --fast # --haddock

devops/nginx/default

 
 ##
-## GargantText serveur configuration
-## Authors: team@gargantext.org
-## Licence CNRS/AGPLv3-MIT/CECILL-INRIA
-#
-# Fee free to improve it
-# Thanks for sharing to all community
-
-
-# Specific NGINX informations
-#
 # You should look at the following URL's in order to grasp a solid understanding
 # of Nginx configuration files in order to fully unleash the power of Nginx.
 # http://wiki.nginx.org/Pitfalls
@@ -43,8 +33,8 @@ server {
 # Comment this for maintenance only
 server {
         
-    #server_name v4.gargantext.org;
-    server_name maintenanceOnly.gargantext.org;
+    server_name v4.gargantext.org;
+    #server_name maintenanceOnly.gargantext.org;
 
     add_header Cache-Control "no-cache";
 

package.yaml

 name: gargantext
-version: '0.0.3.7'
+version: '0.0.3.9'
 synopsis: Search, map, share
 description: Please see README.md
 category: Data

src/Gargantext/Core/Viz/Graph/API.hs

@@ -257,9 +257,8 @@ graphVersions n nId = do
                 . gm_list
                 . lfg_version
 
-    cId = maybe (panic "[G.V.G.API] Node has no parent")
-                  identity
-                  $ nodeGraph ^. node_parent_id
+  mcId <- getClosestParentIdByType nId NodeCorpus
+  let cId = maybe (panic "[G.V.G.API] Node has no parent") identity mcId
 
   maybeListId <- defaultListMaybe cId
   case maybeListId of