Skip to content

H
haskell-gargantext
Commit b05ab4f9 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] CNRS org by default

parent 1f9b9f14
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/Gargantext/API/Search.hs
View file @ b05ab4f9
...@@ -294,6 +294,6 @@ instance ToHyperdataRow HyperdataContact where ...@@ -294,6 +294,6 @@ instance ToHyperdataRow HyperdataContact where
toHyperdataRow (HyperdataContact _ (Just (ContactWho _ fn ln _ _)) ou _ _ _ _ _ ) = toHyperdataRow (HyperdataContact _ (Just (ContactWho _ fn ln _ _)) ou _ _ _ _ _ ) =
HyperdataRowContact (fromMaybe "FirstName" fn) (fromMaybe "LastName" ln) ou' HyperdataRowContact (fromMaybe "FirstName" fn) (fromMaybe "LastName" ln) ou'
where where
ou' = maybe "IMT" (Text.intercalate " " . _cw_organization) (head ou) ou' = maybe "CNRS" (Text.intercalate " " . _cw_organization) (head ou)
toHyperdataRow (HyperdataContact _ _ _ _ _ _ _ _ ) = toHyperdataRow (HyperdataContact _ _ _ _ _ _ _ _ ) =
HyperdataRowContact "FirstName" "LastName" "Labs" HyperdataRowContact "FirstName" "LastName" "Labs"
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment