[FEAT] external apis tested and fixed.

src/Gargantext/Text/Corpus/API/Hal.hs

@@ -43,7 +43,7 @@ toDoc' la (HAL.Corpus i t ab d s aus affs) = do
                    (Just $ intercalate " " t)
                    (Just $ foldl (\x y -> x <> ", " <> y) "" aus)
                    (Just $ foldl (\x y -> x <> ", " <> y) "" affs)
-                   s
+                   (Just $ maybe "Nothing" identity s)
                    (Just $ intercalate " " ab)
                    (fmap (pack . show) utctime)
                    pub_year

src/Gargantext/Text/Corpus/API/Isidore.hs

@@ -80,7 +80,7 @@ isidoreToDoc l (IsidoreDoc t a d u s as) = do
                  (Just $ cleanText $ langText t)
                  (creator2text <$> as)
                  Nothing
-                 (_sourceName <$> s)
+                 (Just $ maybe "Nothing" identity $ _sourceName <$> s)
                  (cleanText <$> langText    <$> a)
                  (fmap (Text.pack . show) utcTime)
                  (pub_year)