[FIX] Corpus V3 + fixes for compilation.

src/Gargantext.hs

@@ -10,6 +10,8 @@ Portability : POSIX
 @Gargantext@: search, map, share
 -}
 
+{-# LANGUAGE NoImplicitPrelude #-}
+
 module Gargantext ( module Gargantext.API
                   , module Gargantext.Core
                   , module Gargantext.Database

src/Gargantext/Database/Config.hs

@@ -34,7 +34,8 @@ nodeTypeId n =
     NodeUser   -> 1
     Folder     -> 2
     --NodeCorpus -> 3
-    NodeCorpus -> 30 -- TODO ERRR
+    NodeCorpusV3 -> 3
+    NodeCorpus -> 30
     Annuaire   -> 31
     Document   -> 4
     UserPage   -> 41

src/Gargantext/Database/Tree.hs

@@ -100,7 +100,7 @@ dbTree conn rootId = map (\(nId, tId, pId, n) -> DbTreeNode nId tId pId n) <$> q
         UNION ALL
         SELECT n.id, n.typename, n.parent_id, n.name
         FROM nodes AS n JOIN descendants AS d ON n.parent_id = d.id
-        where n.typename in (2,30,31)
+        where n.typename in (2,3,30,31)
       ),
       ancestors (id, typename, parent_id, name) AS
       (

src/Gargantext/Database/Types/Node.hs

@@ -271,13 +271,14 @@ type NodeUser   = Node HyperdataUser
 type Folder     = Node HyperdataFolder
 type Project    = Node HyperdataProject
 type NodeCorpus = Node HyperdataCorpus
+type NodeCorpusV3 = Node HyperdataCorpus
 type Document   = Node HyperdataDocument
 
 ------------------------------------------------------------------------
 data NodeType = NodeUser 
               -- | Project
               | Folder
-              | NodeCorpus | Annuaire 
+              | NodeCorpus | NodeCorpusV3 | Annuaire 
               | Document -- | Individu
               | UserPage | Favorites
               | Graph    | Dashboard | Chart

src/Gargantext/Text/Samples/CH.hs

@@ -13,6 +13,7 @@ Page  : text mining
 -}
 
 
+{-# LANGUAGE NoImplicitPrelude #-}
 
 module Gargantext.Text.Samples.CH where
 

src/Gargantext/Text/Samples/DE.hs

@@ -12,6 +12,8 @@ Page  : text mining
 
 -}
 
+{-# LANGUAGE NoImplicitPrelude #-}
+
 module Gargantext.Text.Samples.DE where
 
 import Data.String (String)

src/Gargantext/Text/Samples/EN.hs

@@ -13,6 +13,7 @@ Page  : text mining
 -}
 
 
+{-# LANGUAGE NoImplicitPrelude #-}
 
 module Gargantext.Text.Samples.EN where
 

src/Gargantext/Text/Samples/FR.hs

@@ -12,9 +12,11 @@ Page  : text mining
 
 -}
 
+{-# LANGUAGE NoImplicitPrelude #-}
+
 module Gargantext.Text.Samples.FR where
 
-import Gargantext.Prelude
+import Gargantext.Prelude ((<>))
 import Data.String (String)
 
 textSample :: String

src/Gargantext/Text/Samples/SP.hs

@@ -12,6 +12,8 @@ Page  : text mining
 -}
 
 
+{-# LANGUAGE NoImplicitPrelude #-}
+
 module Gargantext.Text.Samples.SP where
 
 import Data.String (String)

src/Gargantext/Text/Terms/Stop.hs

@@ -162,7 +162,7 @@ pebLang st = map (\(l,eb) -> (l, peb' st eb)) .  DM.toList
 
 ------------------------------------------------------------------------
 prior :: [(Lang, (Freq, TotalFreq))] -> [(Lang, Double)]
-prior ps = zip ls $ zipWith (\x y -> x^99 * y) (map (\(a,_) -> part a (sum $ map fst ps')) ps') 
+prior ps = zip ls $ zipWith (\x y -> x^(99::Int) * y) (map (\(a,_) -> part a (sum $ map fst ps')) ps') 
                                 (map (\(a,b) -> a / b) ps')
   where