[Merge]

src/Gargantext/Components/DocsTable.purs

@@ -29,14 +29,14 @@ import Gargantext.Components.Bootstrap.Types (ComponentStatus(..))
 import Gargantext.Components.Category (rating)
 import Gargantext.Components.Category.Types (Star(..))
 import Gargantext.Components.DocsTable.DocumentFormCreation (documentFormCreation)
-import Gargantext.Components.DocsTable.Types (DocumentsView(..), Hyperdata(..), LocalUserScore, Query, Response(..), Year, sampleData)
+import Gargantext.Components.DocsTable.Types (DocumentsView(..), Hyperdata(..), LocalUserScore, Query, Response(..), Year, sampleData, showSource)
 import Gargantext.Components.Nodes.Lists.Types as NT
 import Gargantext.Components.Nodes.Texts.Types (SidePanelTriggers)
 import Gargantext.Components.Score as GCS
 import Gargantext.Components.Nodes.Texts.Types as TextsT
 import Gargantext.Components.Table as TT
 import Gargantext.Components.Table.Types as TT
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Ends (Frontends, url)
 import Gargantext.Hooks.Loader (useLoader, useLoaderWithCacheAPI, HashedResponse(..))
 import Gargantext.Routes (SessionRoute(NodeAPI))
@@ -384,7 +384,7 @@ pageLayoutCpt = here.component "pageLayout" cpt where
                                                                           , totalRecords = count }
                                                           , localCategories
                                                           , params: paramsS } []
-        let errorHandler err = here.log2 "[pageLayout] RESTError" err
+        let errorHandler = logRESTError here "[pageLayout]"
         useLoader { errorHandler
                   , path: path { params = paramsS' }
                   , loader
@@ -430,8 +430,8 @@ pagePaintCpt = here.component "pagePaintCpt" cpt
             case convOrderBy orderBy of
               Just DateAsc    -> sortWith \(DocumentsView { date })   -> date
               Just DateDesc   -> sortWith \(DocumentsView { date })   -> Down date
-              Just SourceAsc  -> sortWith \(DocumentsView { source }) -> Str.toLower source
-              Just SourceDesc -> sortWith \(DocumentsView { source }) -> Down $ Str.toLower source
+              Just SourceAsc  -> sortWith \(DocumentsView { source }) -> Str.toLower $ fromMaybe "" source
+              Just SourceDesc -> sortWith \(DocumentsView { source }) -> Down $ Str.toLower $ fromMaybe "" source
               Just TitleAsc   -> sortWith \(DocumentsView { title })  -> Str.toLower title
               Just TitleDesc  -> sortWith \(DocumentsView { title })  -> Down $ Str.toLower title
               _               -> identity -- the server ordering is enough here
@@ -513,14 +513,8 @@ pagePaintRawCpt = here.component "pagePaintRawCpt" cpt where
                         [ H.a { href: url frontends $ corpusDocument r._id, target: "_blank" }
                               [ H.text r.title ]
                         ]
-                , H.div { className: tClassName } [ H.text $ if r.source == "" then "Source" else r.source ]
-                -- , H.div {} [ H.text $ maybe "-" show r.score ]
-                , H.div { className: tClassName } [ GCS.scoreEl { docId: r._id
-                                                                , key: show nodeId <> "-" <> show r._id
-                                                                , nodeId
-                                                                , score: r.score
-                                                                , session
-                                                                , tableReload: reload } [] ]
+                , H.div { className: tClassName } [ H.text $ showSource r.source ]
+                , H.div {} [ H.text $ maybe "-" show r.ngramCount ]
                 ]
               , delete: true }
               where

src/Gargantext/Components/DocsTable/Types.purs

 module Gargantext.Components.DocsTable.Types where
 
-import Data.Generic.Rep (class Generic)
+import Gargantext.Prelude
+
 import Data.Eq.Generic (genericEq)
+import Data.Generic.Rep (class Generic)
 import Data.Map (Map)
-import Data.Map as Map
-import Data.Maybe (Maybe(..))
+import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Tuple (Tuple(..))
+import Gargantext.Components.Category.Types (Category, Star(..), decodeStar)
 import Simple.JSON as JSON
 
-import Gargantext.Prelude
-
-import Gargantext.Components.Category.Types (Category(..), decodeCategory, Star(..), decodeStar)
-
 data Action
   = MarkCategory Int Category
 
@@ -20,7 +18,7 @@ type DocumentsViewT =
   , date       :: Int
   , ngramCount :: Maybe Int
   , score      :: Maybe Int
-  , source     :: String
+  , source     :: Maybe String
   , title      :: String
   , url        :: String
   )
@@ -33,15 +31,21 @@ derive instance Generic DocumentsView _
 instance Eq DocumentsView where
   eq = genericEq
 
+showSource :: Maybe String -> String
+showSource s = fromMaybe "NOT FOUND" s
+
 instance JSON.ReadForeign DocumentsView where
   readImpl f = do
     { id, category, date, ngramCount, score, source, title, url } :: { id :: Int | DocumentsViewT } <- JSON.readImpl f
+    let source' = case source of
+                    Just "NOT FOUND" -> Nothing
+                    s                -> s
     pure $ DocumentsView { _id: id
                          , category
                          , date
                          , ngramCount
                          , score
-                         , source
+                         , source: source'
                          , title
                          , url }
 instance JSON.WriteForeign DocumentsView where
@@ -80,7 +84,7 @@ instance JSON.ReadForeign Response where
 
 type HyperdataT =
   ( title :: String
-  , source :: String )
+  , source :: Maybe String )
 newtype Hyperdata = Hyperdata
   { pub_year :: Int
   | HyperdataT
@@ -105,7 +109,7 @@ sampleData' = DocumentsView { _id : 1
                             , url : ""
                             , date : 2010
                             , title : "title"
-                            , source : "source"
+                            , source : Just "source"
                             , category : Star_1
                             , ngramCount : Just 1
                             , score: Just 1 }
@@ -116,7 +120,7 @@ sampleData = map (\(Tuple t s) -> DocumentsView { _id : 1
                                                 , url : ""
                                                 , date : 2017
                                                 , title: t
-                                                , source: s
+                                                , source: Just s
                                                 , category : Star_1
                                                 , ngramCount : Just 10
                                                 , score: Just 1 }) sampleDocuments

src/Gargantext/Components/FacetsTable.purs

@@ -21,6 +21,7 @@ import Effect.Aff (Aff, launchAff_)
 import Effect.Class (liftEffect)
 import Gargantext.Components.Category (CategoryQuery(..), putCategories)
 import Gargantext.Components.Category.Types (Category(..), decodeCategory, favCategory)
+import Gargantext.Components.DocsTable.Types (showSource)
 import Gargantext.Components.Search (Contact(..), Document(..), HyperdataRowContact(..), HyperdataRowDocument(..), SearchQuery, SearchResult(..), SearchResultTypes(..))
 import Gargantext.Components.Table as T
 import Gargantext.Components.Table.Types as T
@@ -245,7 +246,7 @@ doc2view ( Document { id
         ) = DocumentsView { id
                           , date
                           , title: title
-                          , source: fromMaybe "Source" source
+                          , source: showSource source
                           , score
                           , authors: fromMaybe "Authors" authors
                           , category: decodeCategory category

src/Gargantext/Components/FolderView.purs

@@ -8,11 +8,6 @@ import Data.Traversable (traverse_)
 import Effect (Effect)
 import Effect.Aff (Aff)
 import Effect.Class (liftEffect)
-import Reactix as R
-import Reactix.DOM.HTML as H
-import Record as Record
-import Toestand as T
-
 import Gargantext.AsyncTasks as GAT
 import Gargantext.Components.App.Data (Boxes)
 import Gargantext.Components.Forest.Tree.Node.Action.Add (AddNodeValue(..), addNode)
@@ -30,7 +25,7 @@ import Gargantext.Components.Forest.Tree.Node.Action.WriteNodesDocuments (docume
 import Gargantext.Components.Forest.Tree.Node.Box (nodePopupView)
 import Gargantext.Components.Forest.Tree.Node.Tools.FTree (FTree, LNode(..), NTree(..), ID, fTreeID)
 import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeOut(..))
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Config.Utils (handleRESTError)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Prelude (Ordering, Unit, bind, compare, discard, pure, unit, void, ($), (<$>), (<>))
@@ -41,6 +36,10 @@ import Gargantext.Types as GT
 import Gargantext.Utils.Popover as Popover
 import Gargantext.Utils.Reactix as R2
 import Gargantext.Utils.Toestand as T2
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Record as Record
+import Toestand as T
 
 foreign import back :: Effect Unit
 foreign import link :: String -> Effect Unit
@@ -76,7 +75,7 @@ folderViewCpt = here.component "folderViewCpt" cpt where
                                                    , session
                                                    , setPopoverRef } [] }
     where
-      errorHandler err = here.log2 "[folderView] RESTError" err
+      errorHandler = logRESTError here "[folderView]"
 
 type FolderViewProps =
   ( backFolder    :: Boolean

src/Gargantext/Components/Forest/Tree.purs

@@ -26,7 +26,7 @@ import Gargantext.Components.Forest.Tree.Node.Action.Upload (uploadFile, uploadA
 import Gargantext.Components.Forest.Tree.Node.Action.WriteNodesDocuments (documentsFromWriteNodesReq)
 import Gargantext.Components.Forest.Tree.Node.Tools.FTree (FTree, LNode(..), NTree(..), fTreeID)
 import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeOut(..))
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Config.Utils (handleRESTError)
 import Gargantext.Ends (Frontends)
 import Gargantext.Hooks.Loader (useLoader)
@@ -122,7 +122,7 @@ treeLoaderCpt = here.component "treeLoader" cpt where
           props = Record.merge common extra where
             common = RecordE.pick p :: Record Common
             extra = { reloadTree: p.reload, root, session, tree: tree' }
-        errorHandler err = here.log2 "[treeLoader] RESTError" err
+        errorHandler = logRESTError here "[treeLoader]"
 
 getNodeTree :: Session -> ID -> Aff (Either RESTError FTree)
 getNodeTree session nodeId = get session $ GR.NodeAPI GT.Tree (Just nodeId) ""
@@ -216,7 +216,7 @@ childLoaderCpt = here.component "childLoader" cpt where
               , path: cache
               , render: paint reload }
     where
-      errorHandler err = here.log2 "[childLoader] RESTError" err
+      errorHandler = logRESTError here "[childLoader]"
       fetch _ = getNodeTreeFirstLevel p.session p.id
       paint reload tree' = render (Record.merge base extra) where
         base = nodeProps { reload = reload }

src/Gargantext/Components/Forest/Tree/Node.purs

@@ -21,6 +21,7 @@ import Gargantext.Components.Forest.Tree.Node.Tools.Sync (nodeActionsGraph, node
 import Gargantext.Components.GraphExplorer.API as GraphAPI
 import Gargantext.Components.Lang (Lang(EN))
 import Gargantext.Components.Nodes.Corpus (loadCorpusWithChild)
+import Gargantext.Config.REST (logRESTError)
 import Gargantext.Ends (Frontends)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes as Routes
@@ -315,7 +316,7 @@ graphNodeActionsCpt = here.component "graphNodeActions" cpt where
               , path: id
               , render: \gv -> nodeActionsGraph { graphVersions: gv, session, id, refresh } [] }
   graphVersions session graphId = GraphAPI.graphVersions { graphId, session }
-  errorHandler err = here.log2 "[graphNodeActions] RESTError" err
+  errorHandler = logRESTError here "[graphNodeActions]"
 
 listNodeActions :: R2.Leaf NodeActionsCommon
 listNodeActions props = R.createElement listNodeActionsCpt props []
@@ -329,5 +330,5 @@ listNodeActionsCpt = here.component "listNodeActions" cpt where
                  { listId: id, nodeId: corpusId, session, refresh: refresh
                  , nodeType: GT.TabNgramType GT.CTabTerms } }
     where
-      errorHandler err = here.log2 "[listNodeActions] RESTError" err
+      errorHandler = logRESTError here "[listNodeActions]"
 

src/Gargantext/Components/Forest/Tree/Node/Tools/SubTree.purs

@@ -15,7 +15,7 @@ import Gargantext.Components.Forest.Tree.Node.Action.Types (Action)
 import Gargantext.Components.Forest.Tree.Node.Tools (nodeText)
 import Gargantext.Components.Forest.Tree.Node.Tools.FTree (FTree, LNode(..), NTree(..))
 import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeParams(..), SubTreeOut(..))
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes as GR
 import Gargantext.Sessions (Session(..), get)
@@ -74,7 +74,7 @@ subTreeViewCpt = here.component "subTreeView" cpt
                                       , tree
                                       } []  }
       where
-        errorHandler err = here.log2 "RESTError" err
+        errorHandler = logRESTError here "[subTreeView]"
 
 loadSubTree :: Array GT.NodeType -> Session -> Aff (Either RESTError FTree)
 loadSubTree nodetypes session = getSubTree session treeId nodetypes

src/Gargantext/Components/GraphExplorer.purs

@@ -2,6 +2,7 @@ module Gargantext.Components.GraphExplorer where
 
 import Gargantext.Prelude hiding (max, min)
 
+import DOM.Simple.Types (Element)
 import Data.Array as A
 import Data.Either (Either)
 import Data.FoldableWithIndex (foldMapWithIndex)
@@ -12,22 +13,13 @@ import Data.Nullable (null, Nullable)
 import Data.Sequence as Seq
 import Data.Set as Set
 import Data.Tuple (Tuple(..))
-import DOM.Simple.Types (Element)
 import Effect.Aff (Aff)
-import Math as Math
-import Partial.Unsafe (unsafePartial)
-import Reactix as R
-import Reactix.DOM.HTML as RH
-import Record as Record
-import Record.Extra as RX
-import Toestand as T
-
 import Gargantext.Components.App.Data (Boxes)
 import Gargantext.Components.Graph as Graph
 import Gargantext.Components.GraphExplorer.Controls as Controls
 import Gargantext.Components.GraphExplorer.Sidebar.Types as GEST
 import Gargantext.Components.GraphExplorer.Types as GET
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Data.Louvain as Louvain
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Hooks.Sigmax.Types as SigmaxT
@@ -37,6 +29,13 @@ import Gargantext.Types as Types
 import Gargantext.Utils.Range as Range
 import Gargantext.Utils.Reactix as R2
 import Gargantext.Utils.Toestand as T2
+import Math as Math
+import Partial.Unsafe (unsafePartial)
+import Reactix as R
+import Reactix.DOM.HTML as RH
+import Record as Record
+import Record.Extra as RX
+import Toestand as T
 
 here :: R2.Here
 here = R2.here "Gargantext.Components.GraphExplorer"
@@ -74,7 +73,7 @@ explorerLayoutCpt = here.component "explorerLayout" cpt where
               , path: graphId
               , render: handler }
     where
-      errorHandler err = here.log2 "[explorerLayout] RESTError" err
+      errorHandler = logRESTError here "[explorerLayout]"
       handler loaded@(GET.HyperdataGraph { graph: hyperdataGraph }) =
         explorerWriteGraph (Record.merge props { graph, hyperdataGraph: loaded, mMetaData' }) []
         where

src/Gargantext/Components/NgramsTable.purs

@@ -34,7 +34,7 @@ import Gargantext.Components.NgramsTable.Loader (useLoaderWithCacheAPI)
 import Gargantext.Components.Nodes.Lists.Types as NT
 import Gargantext.Components.Table as TT
 import Gargantext.Components.Table.Types as TT
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Hooks.Loader (useLoaderBox)
 import Gargantext.Routes (SessionRoute(..)) as R
 import Gargantext.Sessions (Session, get)
@@ -582,7 +582,7 @@ mainNgramsTableCacheOnCpt = here.component "mainNgramsTableCacheOn" cpt where
       , renderer: render
       }
   versionEndpoint { defaultListId, path: { nodeId, tabType, session } } _ = get session $ R.GetNgramsTableVersion { listId: defaultListId, tabType } (Just nodeId)
-  errorHandler err = here.log2 "[mainNgramsTable] RESTError" err
+  errorHandler = logRESTError here "[mainNgramsTable]"
   mkRequest :: PageParams -> GUC.Request
   mkRequest path@{ session } = GUC.makeGetRequest session $ url path
     where
@@ -616,7 +616,7 @@ mainNgramsTableCacheOffCpt = here.component "mainNgramsTableCacheOff" cpt where
                  , path
                  , render }
 
-  errorHandler err = here.log2 "[mainNgramsTable] RESTError" err
+  errorHandler = logRESTError here "[mainNgramsTable]"
 
   -- NOTE With cache off
   loader :: PageParams -> Aff (Either RESTError VersionedWithCountNgramsTable)

src/Gargantext/Components/Nodes/Annuaire.purs

@@ -2,29 +2,23 @@ module Gargantext.Components.Nodes.Annuaire
  -- ( annuaire )
  where
 
+import Gargantext.Prelude
+
 import Data.Array as A
 import Data.Either (Either)
-import Data.Generic.Rep (class Generic)
 import Data.Eq.Generic (genericEq)
+import Data.Generic.Rep (class Generic)
 import Data.Maybe (Maybe(..), maybe, fromMaybe)
 import Data.Newtype (class Newtype)
 import Data.Sequence as Seq
 import Data.Symbol (SProxy(..))
 import Effect.Aff (Aff, launchAff_)
-import Reactix as R
-import Reactix.DOM.HTML as H
-import Record as Record
-import Simple.JSON as JSON
-import Toestand as T
-
-import Gargantext.Prelude
-
 import Gargantext.Components.NgramsTable.Loader (clearCache)
 import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types as CT
 import Gargantext.Components.Nodes.Lists.Types as NT
 import Gargantext.Components.Table (defaultContainer, initialParams, makeRow, table, tableHeaderLayout) as TT
 import Gargantext.Components.Table.Types (ColumnName(..), Params) as TT
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Ends (url, Frontends)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes (SessionRoute(..))
@@ -32,6 +26,11 @@ import Gargantext.Routes as Routes
 import Gargantext.Sessions (Session, sessionId, get)
 import Gargantext.Types (NodeType(..), AffETableResult, TableResult)
 import Gargantext.Utils.Reactix as R2
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Record as Record
+import Simple.JSON as JSON
+import Toestand as T
 
 here :: R2.Here
 here = R2.here "Gargantext.Components.Nodes.Annuaire"
@@ -84,7 +83,7 @@ annuaireLayoutWithKeyCpt = here.component "annuaireLayoutWithKey" cpt where
               , path: path'
               , render: \info -> annuaire { frontends, info, path, session } }
     where
-      errorHandler err = here.log2 "[annuaireLayoutWithKey] RESTError" err
+      errorHandler = logRESTError here "[annuaireLayoutWithKey]"
 
 type AnnuaireProps =
   ( session   :: Session
@@ -151,7 +150,7 @@ pageLayoutCpt = here.component "pageLayout" cpt
                 , path: pagePath'
                 , render: \table -> page { session, table, frontends, pagePath } }
       where
-        errorHandler err = here.log2 "[pageLayout] RESTError" err
+        errorHandler = logRESTError here "[pageLayout]"
 
 type PageProps = 
   ( session   :: Session

src/Gargantext/Components/Nodes/Annuaire/User.purs

@@ -17,7 +17,7 @@ import Gargantext.Components.InputWithEnter (inputWithEnter)
 import Gargantext.Components.Nodes.Annuaire.Tabs as Tabs
 import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types (Contact(..), ContactData, ContactTouch(..), ContactWhere(..), ContactWho(..), HyperdataContact(..), HyperdataUser(..), _city, _country, _firstName, _labTeamDeptsJoinComma, _lastName, _mail, _office, _organizationJoinComma, _ouFirst, _phone, _role, _shared, _touch, _who, defaultContactTouch, defaultContactWhere, defaultContactWho, defaultHyperdataContact, defaultHyperdataUser)
 import Gargantext.Components.Nodes.Lists.Types as LT
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Ends (Frontends)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes as Routes
@@ -209,7 +209,7 @@ userLayoutWithKeyCpt = here.component "userLayoutWithKey" cpt where
                     ]
               }
     where
-      errorHandler err = here.log2 "[userLayoutWithKey] RESTError" err
+      errorHandler = logRESTError here "[userLayoutWithKey]"
       onUpdateHyperdata :: T2.ReloadS -> HyperdataUser -> Effect Unit
       onUpdateHyperdata reload hd = do
         launchAff_ $ do

src/Gargantext/Components/Nodes/Annuaire/User/Contact.purs

@@ -14,7 +14,7 @@ import Gargantext.Components.InputWithEnter (inputWithEnter)
 import Gargantext.Components.Nodes.Annuaire.User.Contacts.Tabs as Tabs
 import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types (Contact'(..), ContactData', ContactTouch(..), ContactWhere(..), ContactWho(..), HyperdataContact(..), HyperdataUser(..), _city, _country, _firstName, _labTeamDeptsJoinComma, _lastName, _mail, _office, _organizationJoinComma, _ouFirst, _phone, _role, _shared, _touch, _who, defaultContactTouch, defaultContactWhere, defaultContactWho, defaultHyperdataContact, defaultHyperdataUser)
 import Gargantext.Components.Nodes.Lists.Types as LT
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Ends (Frontends)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Prelude
@@ -191,7 +191,7 @@ contactLayoutWithKeyCpt = here.component "contactLayoutWithKey" cpt where
                              , sidePanel: sidePanelTexts
                              } ] }
       where
-        errorHandler err = here.log2 "[contactLayoutWithKey] RESTError" err
+        errorHandler = logRESTError here "[contactLayoutWithKey]"
         onUpdateHyperdata :: T2.ReloadS -> HyperdataContact -> Effect Unit
         onUpdateHyperdata reload hd =
           launchAff_ $

src/Gargantext/Components/Nodes/Corpus/Code.purs

@@ -12,6 +12,7 @@ import Gargantext.Components.Nodes.Corpus (fieldsCodeEditor, loadCorpusWithReloa
 import Gargantext.Components.Nodes.Corpus.Types (Hyperdata(..))
 import Gargantext.Components.Nodes.Types (FTFieldList(..), FTFieldsWithIndex(..), defaultField)
 import Gargantext.Components.TileMenu (tileMenu)
+import Gargantext.Config.REST (logRESTError)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Prelude (Unit, bind, discard, pure, unit, ($), (<$>), (<>), (==), const)
 import Gargantext.Routes as GR
@@ -51,7 +52,7 @@ corpusCodeLayoutCpt = here.component "corpusCodeLayout" cpt where
               , path: { nodeId, reload: reload', session }
               , render: \corpus -> corpusCodeView { corpus, nodeId, reload, session, boxes } }
     where
-      errorHandler err = here.log2 "[corpusLayoutWithKey] RESTError" err
+      errorHandler = logRESTError here "[corpusLayoutWithKey]"
 
 corpusCodeView :: Record ViewProps -> R.Element
 corpusCodeView props = R.createElement corpusCodeViewCpt props []

src/Gargantext/Components/Nodes/Corpus/Dashboard.purs

@@ -12,6 +12,7 @@ import Gargantext.Components.Nodes.Corpus (fieldsCodeEditor)
 import Gargantext.Components.Nodes.Corpus.Chart.Predefined as P
 import Gargantext.Components.Nodes.Dashboard.Types as DT
 import Gargantext.Components.Nodes.Types (FTFieldList(..), FTFieldsWithIndex(..), defaultField)
+import Gargantext.Config.REST (logRESTError)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Prelude (Unit, bind, discard, pure, read, show, unit, ($), (<$>), (<>), (==))
 import Gargantext.Sessions (Session, sessionId)
@@ -68,7 +69,7 @@ dashboardLayoutWithKeyCpt = here.component "dashboardLayoutWithKey" cpt
                                             , onChange: onChange nodeId reload (DT.Hyperdata h)
                                             , session } [] }
       where
-        errorHandler err = here.log2 "[dashboardLayoutWithKey] RESTError" err
+        errorHandler = logRESTError here "[dashboardLayoutWithKey]"
         onChange :: NodeID -> T2.ReloadS -> DT.Hyperdata -> { charts :: Array P.PredefinedChart
                                                             , fields :: FTFieldList } -> Effect Unit
         onChange nodeId' reload (DT.Hyperdata h) { charts, fields } = do

src/Gargantext/Components/Nodes/Corpus/Document.purs

@@ -3,28 +3,24 @@ module Gargantext.Components.Nodes.Corpus.Document where
 import Data.Either (Either(..))
 import Data.Maybe (Maybe(..), fromMaybe)
 import Effect.Aff (Aff)
-import Reactix as R
-import Reactix.DOM.HTML as H
-import Record as Record
-import Toestand as T
-
-import Gargantext.Prelude (bind, pure, show, unit, ($), (<>), (<$>), (<<<))
-
+import Gargantext.Components.Annotation.AnnotatedField as AnnotatedField
 import Gargantext.Components.AutoUpdate (autoUpdate)
-import Gargantext.Components.Search (SearchType(..))
+import Gargantext.Components.NgramsTable.Core (CoreAction(..), Versioned(..), addNewNgramA, applyNgramsPatches, coreDispatch, loadNgramsTable, replace, setTermListA, syncResetButtons, findNgramRoot)
 import Gargantext.Components.Node (NodePoly(..))
 import Gargantext.Components.Nodes.Corpus.Document.Types (DocPath, Document(..), LoadedData, NodeDocument, Props, State, initialState)
-import Gargantext.Components.NgramsTable.Core
-  ( CoreAction(..), Versioned(..), addNewNgramA, applyNgramsPatches, coreDispatch, loadNgramsTable
-  , replace, setTermListA, syncResetButtons, findNgramRoot )
-import Gargantext.Components.Annotation.AnnotatedField as AnnotatedField
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Components.Search (SearchType(..))
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Hooks.Loader (useLoader)
+import Gargantext.Prelude (bind, pure, show, unit, ($), (<>), (<$>), (<<<))
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, get, sessionId)
 import Gargantext.Types (CTabNgramType(..), ListId, NodeID, NodeType(..), TabSubType(..), TabType(..), ScoreType(..))
 import Gargantext.Utils as U
 import Gargantext.Utils.Reactix as R2
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Record as Record
+import Toestand as T
 
 here :: R2.Here
 here = R2.here "Gargantext.Components.Nodes.Corpus.Document"
@@ -155,7 +151,7 @@ documentLayoutWithKeyCpt = here.component "documentLayoutWithKey" cpt
       where
         tabType = TabDocument (TabNgramType CTabTerms)
         path = { listIds: [listId], mCorpusId, nodeId, session, tabType }
-        errorHandler err = here.log2 "[documentLayoutWithKey] RESTError" err
+        errorHandler = logRESTError here "[documentLayoutWithKey]"
 
 ------------------------------------------------------------------------
 

src/Gargantext/Components/Nodes/File.purs

 module Gargantext.Components.Nodes.File where
 
-import Data.Generic.Rep (class Generic)
+import Gargantext.Prelude
+
 import Data.Either (Either)
 import Data.Eq.Generic (genericEq)
+import Data.Generic.Rep (class Generic)
 import Data.Maybe (Maybe(..))
 import Data.Newtype (class Newtype)
 import Effect.Aff (Aff)
-import Reactix as R
-import Reactix.DOM.HTML as H
-import Simple.JSON as JSON
-
-import Gargantext.Prelude
-
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Ends (toUrl)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, get)
 import Gargantext.Types (NodeType(..), NodeID)
 import Gargantext.Utils.Reactix as R2
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Simple.JSON as JSON
 
 here :: R2.Here
 here = R2.here "Gargantext.Components.Nodes.File"
@@ -60,7 +59,7 @@ fileLayoutCpt = here.component "fileLayout" cpt where
               , path: nodeId
               , render: onLoad }
       where
-        errorHandler err = here.log2 "RESTError" err
+        errorHandler = logRESTError here "[fileLayout]"
         onLoad loaded = fileLayoutLoaded { loaded, nodeId, session }
 
 loadFile :: Session -> NodeID -> Aff (Either RESTError File)

src/Gargantext/Components/Nodes/Frame.purs

@@ -11,15 +11,9 @@ import Data.Newtype (class Newtype)
 import Data.Nullable (Nullable, null, toMaybe)
 import Data.Show.Generic (genericShow)
 import Effect.Aff (Aff)
-import Reactix as R
-import Reactix.DOM.HTML as H
-import Simple.JSON as JSON
-import Toestand as T
-import Web.URL as WURL
-
 import Gargantext.Components.FolderView as FV
 import Gargantext.Components.Node (NodePoly(..))
-import Gargantext.Config.REST (RESTError)
+import Gargantext.Config.REST (RESTError, logRESTError)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes (SessionRoute(NodeAPI))
 import Gargantext.Sessions (Session, get, sessionId)
@@ -27,6 +21,11 @@ import Gargantext.Types (NodeType(..))
 import Gargantext.Utils.JitsiMeet as JM
 import Gargantext.Utils.Reactix as R2
 import Gargantext.Utils.Toestand as T2
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Simple.JSON as JSON
+import Toestand as T
+import Web.URL as WURL
 
 here :: R2.Here
 here = R2.here "Gargantext.Components.Nodes.Frame"
@@ -71,7 +70,7 @@ frameLayoutWithKeyCpt = here.component "frameLayoutWithKey" cpt where
               , path: {nodeId, reload: reload', session}
               , render: \frame -> frameLayoutView {frame, nodeId, reload, session, nodeType} }
     where
-      errorHandler err = here.log2 "[frameLayoutWithKey] RESTError" err
+      errorHandler = logRESTError here "[frameLayoutWithKey]"
 
 type ViewProps =
   ( frame    :: NodePoly Hyperdata

src/Gargantext/Components/Nodes/Home/Public.purs

 module Gargantext.Components.Nodes.Home.Public where
 
+import Gargantext.Prelude
+
 import Data.Either (Either)
 import Data.Generic.Rep (class Generic)
 import Data.Maybe (Maybe(..))
 import Data.Show.Generic (genericShow)
 import Data.String (take)
 import Effect.Aff (Aff)
-import Reactix as R
-import Reactix.DOM.HTML as H
-import Simple.JSON as JSON
-
 import Gargantext.Config (publicBackend)
-import Gargantext.Config.REST (get, RESTError)
+import Gargantext.Config.REST (RESTError, get, logRESTError)
 import Gargantext.Ends (backendUrl)
 import Gargantext.Hooks.Loader (useLoader)
-import Gargantext.Prelude
 import Gargantext.Utils.Reactix as R2
 import Gargantext.Utils.SimpleJSON as GUSJ
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Simple.JSON as JSON
 
 here :: R2.Here
 here = R2.here "Gargantext.Components.Nodes.Home.Public"
@@ -78,7 +78,7 @@ renderPublicCpt = here.component "renderPublic" cpt where
               , render:  loaded }
       where
         loaded publicData = publicLayout { publicData }
-        errorHandler err = here.log2 "RESTError" err
+        errorHandler = logRESTError here "[renderPublic]"
 
 publicLayout :: Record PublicDataProps -> R.Element
 publicLayout props = R.createElement publicLayoutCpt props []

src/Gargantext/Components/Nodes/Lists.purs

@@ -12,6 +12,7 @@ import Gargantext.Components.Nodes.Corpus.Types (getCorpusInfo, CorpusInfo(..),
 import Gargantext.Components.Nodes.Lists.Tabs as Tabs
 import Gargantext.Components.Nodes.Lists.Types (CacheState(..))
 import Gargantext.Components.Table as Table
+import Gargantext.Config.REST (logRESTError)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Sessions (WithSession, WithSessionContext, Session, sessionId, getCacheState, setCacheState)
 import Gargantext.Types as GT
@@ -95,7 +96,7 @@ listsLayoutWithKeyCpt = here.component "listsLayoutWithKey" cpt where
                               }
                             ] }
     where
-      errorHandler err = here.log2 "[listsLayoutWithKey] RESTError" err
+      errorHandler = logRESTError here "[listsLayoutWithKey]"
       afterCacheStateChange cacheState = do
         launchAff_ $ clearCache unit
         sessionUpdate $ setCacheState session nodeId cacheState

src/Gargantext/Components/Nodes/Texts.purs

@@ -22,6 +22,7 @@ import Gargantext.Components.Nodes.Lists.Types as LT
 import Gargantext.Components.Nodes.Texts.Types as TT
 import Gargantext.Components.Tab as Tab
 import Gargantext.Components.Table as Table
+import Gargantext.Config.REST (logRESTError)
 import Gargantext.Ends (Frontends)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Sessions (WithSession, Session, getCacheState)
@@ -117,7 +118,7 @@ textsLayoutWithKeyCpt = here.component "textsLayoutWithKey" cpt
                              }
                       ] }
       where
-        errorHandler err = here.log2 "[textsLayoutWithKey] RESTError" err
+        errorHandler = logRESTError here "[textsLayoutWithKey]"
         afterCacheStateChange cacheState = do
           launchAff_ $ clearCache unit
           -- TODO

src/Gargantext/Config/REST.purs

@@ -14,6 +14,7 @@ import Data.HTTP.Method (Method(..))
 import Data.Maybe (Maybe(..))
 import Data.MediaType.Common (applicationFormURLEncoded, applicationJSON, multipartFormData)
 import Data.Tuple (Tuple)
+import Effect (Effect)
 import Effect.Aff (Aff)
 import Effect.Class (liftEffect)
 import Foreign as Foreign
@@ -43,6 +44,11 @@ instance Eq RESTError where
   -- this is crude but we need it only because of useLoader
   eq _ _ = false
 
+logRESTError :: R2.Here -> String -> RESTError -> Effect Unit
+logRESTError here prefix (SendResponseError e) = here.log2 (prefix <> " SendResponseError ") e  -- TODO: No show
+logRESTError here prefix (ReadJSONError e) = here.log2 (prefix <> " ReadJSONError ") $ show e
+logRESTError here prefix (CustomError e) = here.log2 (prefix <> " CustomError ") $ e
+
 type AffRESTError a = Aff (Either RESTError a)