[openalex] allow author display_name to be null

cabal.project

@@ -96,6 +96,11 @@ source-repository-package
     location: https://gitlab.iscpif.fr/gargantext/crawlers/istex.git
     tag: a34bb341236d82cf3d488210bc1d8448a98f5808
 
+source-repository-package
+    type: git
+    location: https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git
+    tag: d7aeb1144fce77f60d94a159b4c40329cb6d1960
+
 source-repository-package
     type: git
     location: https://gitlab.iscpif.fr/gargantext/crawlers/pubmed.git
@@ -143,11 +148,6 @@ source-repository-package
     location: https://github.com/rspeer/wikiparsec.git
     tag: 9637a82344bb70f7fa8f02e75db3c081ccd434ce
 
-source-repository-package
-    type: git
-    location: https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git
-    tag: 0083c02d62441d73f3616409c6453c87302c698f
-    
 allow-older: *
 allow-newer: *
 

src/Gargantext/Core/Text/Corpus/API/OpenAlex.hs

@@ -54,9 +54,9 @@ toDoc (OA.Work { .. } ) =
 
         authors :: [OA.Authorship] -> Maybe Text
         authors [] = Nothing
-        authors aus = Just $ T.intercalate ", " (getDisplayName <$> aus)
+        authors aus = Just $ T.intercalate ", " $ catMaybes (getDisplayName <$> aus)
           where
-            getDisplayName :: OA.Authorship -> Text
+            getDisplayName :: OA.Authorship -> Maybe Text
             getDisplayName OA.Authorship { author = OA.DehydratedAuthor { display_name = dn } } = dn
 
         institutes :: [OA.Authorship] -> Maybe Text

stack.yaml

@@ -60,7 +60,7 @@ extra-deps:
 - git: https://gitlab.iscpif.fr/gargantext/crawlers/arxiv-api.git
   commit: 2d7e5753cbbce248b860b571a0e9885415c846f7
 - git: https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git
-  commit: 0083c02d62441d73f3616409c6453c87302c698f
+  commit: d7aeb1144fce77f60d94a159b4c40329cb6d1960
   # NP libs
 - git: https://github.com/alpmestan/servant-job.git
   commit: b4182487cfe479777c11ca19f3c0d47840b376f6