Commit ab986e98 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[Annuaire] fix not documented into blank.

parent 9a926f2d
...@@ -137,7 +137,7 @@ showRow (Just (User { id : id, hyperdata : (HyperData user) })) = ...@@ -137,7 +137,7 @@ showRow (Just (User { id : id, hyperdata : (HyperData user) })) =
, td [] [text $ maybe' user.groupe] , td [] [text $ maybe' user.groupe]
] ]
where where
maybe' = maybe "Unknown" identity maybe' = maybe "" identity
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
......
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