[docs] title type fix to Maybe String

src/Gargantext/Components/DocsTable/Types.purs

@@ -81,20 +81,19 @@ instance JSON.ReadForeign Response where
                     , title }
 
 
-type HyperdataT =
-  ( title :: String
-  , source :: Maybe String )
 newtype Hyperdata = Hyperdata
   { pub_year :: Int
-  | HyperdataT
+  , title :: String
+  , source :: Maybe String
   }
 derive instance Generic Hyperdata _
-
 instance JSON.ReadForeign Hyperdata where
   readImpl f = do
-    { publication_year, source, title} :: { publication_year :: Int | HyperdataT } <- JSON.readImpl f
+    { publication_year, source, title: mTitle } :: { publication_year :: Int
+                                                   , source :: Maybe String
+                                                   , title :: Maybe String } <- JSON.readImpl f
     pure $ Hyperdata { pub_year: publication_year
-                     , title
+                     , title: fromMaybe "-" mTitle
                      , source }
 
 type LocalCategories = Map Int Category