Commit 07f3f725 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] User lab

parent dc29351f
...@@ -119,8 +119,8 @@ data ContactWhere = ...@@ -119,8 +119,8 @@ data ContactWhere =
} deriving (Eq, Show, Generic) } deriving (Eq, Show, Generic)
defaultContactWhere :: ContactWhere defaultContactWhere :: ContactWhere
defaultContactWhere = ContactWhere ["Organization A"] defaultContactWhere = ContactWhere ["Organization X"]
["Organization B"] ["Lab Z"]
(Just "Role") (Just "Role")
(Just "Office") (Just "Office")
(Just "Country") (Just "Country")
......
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