misc fixes for G.Pages

src/Gargantext/Pages/Annuaire.purs

@@ -134,8 +134,8 @@ data HyperdataAnnuaire = HyperdataAnnuaire
 instance decodeHyperdataAnnuaire :: DecodeJson HyperdataAnnuaire where
   decodeJson json = do
     obj   <- decodeJson json
-    title <- obj .:? "title"
-    desc  <- obj .:? "desc"
+    title <- obj .:! "title"
+    desc  <- obj .:! "desc"
     pure $ HyperdataAnnuaire { title, desc }
 
 ------------------------------------------------------------------------------

src/Gargantext/Pages/Annuaire/User/Contacts/Types.purs

@@ -2,7 +2,7 @@ module Gargantext.Pages.Annuaire.User.Contacts.Types where
 
 import Prelude
 
-import Data.Argonaut (class DecodeJson, decodeJson, (.?), (.??))
+import Data.Argonaut (class DecodeJson, decodeJson, (.:), (.:!), (.?), (.??))
 import Data.Either (Either(..))
 import Data.Lens (Lens', Prism', lens, prism)
 import Data.Maybe (Maybe(..), maybe, fromMaybe)

src/Gargantext/Pages/Corpus.purs

@@ -13,7 +13,7 @@ corpusLayout props = R.createElement corpusLayoutCpt props []
 corpusLayoutCpt :: R.Component Props
 corpusLayoutCpt = R.staticComponent "G.P.Corpus.corpusLayout" cpt
   where
-    cpt {nodeId} _children = do
-      pure $ H.div {} [ H.h1 {} [H.text "Corpus Description"]
-                      , H.p  {} [H.text "Soon: corpus synthesis here (when all others charts/features will be stabilized)."]
-                      ]
+    cpt {nodeId} _children =
+      H.div {}
+      [ H.h1 {} [H.text "Corpus Description"]
+      , H.p  {} [H.text "Soon: corpus synthesis here (when all others charts/features will be stabilized)."] ]

src/Gargantext/Pages/Corpus/Document.purs

 module Gargantext.Pages.Corpus.Document where
 
-import Data.Argonaut (class DecodeJson, decodeJson, (.:), (.:?))
+import Data.Argonaut (class DecodeJson, decodeJson, (.:), (.:!))
 import Data.Generic.Rep (class Generic)
 import Data.Generic.Rep.Show (genericShow)
 import Data.Maybe (Maybe(..), maybe)
@@ -199,7 +199,7 @@ instance decodeDocumentV3 :: DecodeJson DocumentV3
   where
     decodeJson json = do
       obj <- decodeJson json
-      abstract <- obj .:? "abstract"
+      abstract <- obj .:! "abstract"
       authors  <- obj .: "authors"
       --error    <- obj .: "error"
       language_iso2 <- obj .: "language_iso2"
@@ -239,23 +239,23 @@ instance decodeDocument :: DecodeJson Document
   where
     decodeJson json = do
       obj <- decodeJson json
-      abstract <- obj .:? "abstract"
-      authors  <- obj .:? "authors"
-      bdd      <- obj .:? "bdd"
-      doi      <- obj .:? "doi"
-      language_iso2 <- obj .:? "language_iso2"
-      -- page          <- obj .:? "page"
-      publication_date   <- obj .:? "publication_date"
-      --publication_second <- obj .:? "publication_second"
-      --publication_minute <- obj .:? "publication_minute"
-      --publication_hour   <- obj .:? "publication_hour"
-      publication_day    <- obj .:? "publication_day"
-      publication_month  <- obj .:? "publication_month"
-      publication_year   <- obj .:? "publication_year"
-      source             <- obj .:? "sources"
-      institutes         <- obj .:? "institutes"
-      title              <- obj .:? "title"
-      uniqId             <- obj .:? "uniqId"
+      abstract <- obj .:! "abstract"
+      authors  <- obj .:! "authors"
+      bdd      <- obj .:! "bdd"
+      doi      <- obj .:! "doi"
+      language_iso2 <- obj .:! "language_iso2"
+      -- page          <- obj .:! "page"
+      publication_date   <- obj .:! "publication_date"
+      --publication_second <- obj .:! "publication_second"
+      --publication_minute <- obj .:! "publication_minute"
+      --publication_hour   <- obj .:! "publication_hour"
+      publication_day    <- obj .:! "publication_day"
+      publication_month  <- obj .:! "publication_month"
+      publication_year   <- obj .:! "publication_year"
+      source             <- obj .:! "sources"
+      institutes         <- obj .:! "institutes"
+      title              <- obj .:! "title"
+      uniqId             <- obj .:! "uniqId"
       --url                <- obj .: "url"
       --text               <- obj .: "text"
       pure $ Document { abstract