Add another form of decoding for optional fields and use it for document hyperdata

src/Gargantext/Pages/Corpus/Doc/Facets/Documents.purs

@@ -15,6 +15,7 @@ import Effect.Class (liftEffect)
 import Effect.Console (log)
 import Gargantext.Components.Charts.Charts (p'')
 import Gargantext.Config.REST (get)
+import Gargantext.Utils.DecodeMaybe ((.|))
 import React (ReactElement)
 import React.DOM (a, b, b', br', div, input, option, select, span, table, tbody, td, text, th, thead, tr)
 import React.DOM.Props (_type, className, href, onChange, onClick, scope, selected, value)
@@ -115,8 +116,8 @@ newtype Hyperdata = Hyperdata
 instance decodeHyperdata :: DecodeJson Hyperdata where
   decodeJson json = do
     obj    <- decodeJson json
-    title  <- obj .? "nom"
-    source <- obj .? "fonction"
+    title  <- obj .| "title"
+    source <- obj .| "source"
     pure $ Hyperdata { title,source }
 
 instance decodeResponse :: DecodeJson Response where

src/Gargantext/Utils/DecodeMaybe.purs

@@ -4,15 +4,20 @@ import Prelude
 
 import Data.Argonaut (class DecodeJson, Json, getFieldOptional)
 import Data.Either (Either)
-import Data.Maybe (Maybe(..))
+import Data.Maybe (Maybe(..), fromMaybe)
 import Foreign.Object (Object)
 
 foreign import isNull :: forall a. a -> Boolean
 
-getFieldOptional' :: forall t9. DecodeJson t9 => Object Json -> String -> Either String (Maybe t9)
+getFieldOptional' :: forall a. DecodeJson a => Object Json -> String -> Either String (Maybe a)
 getFieldOptional' o s = (case _ of
     Just v -> if isNull v then Nothing else v
     Nothing -> Nothing
   ) <$> (getFieldOptional o s)
 
 infix 7 getFieldOptional' as .?|
+
+getFieldOptionalAsMempty :: forall a. DecodeJson a => Monoid a => Object Json -> String -> Either String a
+getFieldOptionalAsMempty o s = fromMaybe mempty <$> (getFieldOptional' o s)
+
+infix 7 getFieldOptionalAsMempty as .|