diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-10-18 22:45:29 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-05 00:18:56 +0100 |
| commit | 497c11fd3636f3befd1e8dce4cd9dff8b3c63844 (patch) | |
| tree | 5175acadff34699b5f0da9721d14461845726cba /src/Erebos/Identity.hs | |
| parent | d13a6d4c4c857dbb830d3c9dbc3785b4cd0ee84d (diff) | |
Invite service and shared state
Changelog: New service and shared state for invites
Diffstat (limited to 'src/Erebos/Identity.hs')
| -rw-r--r-- | src/Erebos/Identity.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Erebos/Identity.hs b/src/Erebos/Identity.hs index bd5acb3..491df6e 100644 --- a/src/Erebos/Identity.hs +++ b/src/Erebos/Identity.hs @@ -391,13 +391,13 @@ sameIdentity x y = intersectsSorted (roots x) (roots y) roots idt = uniq $ sort $ concatMap storedRoots $ toList $ idDataF idt -unfoldOwners :: (Foldable m) => Identity m -> [ComposedIdentity] +unfoldOwners :: Foldable m => Identity m -> [ComposedIdentity] unfoldOwners = unfoldr (fmap (\i -> (i, idOwner i))) . Just . toComposedIdentity -finalOwner :: (Foldable m, Applicative m) => Identity m -> ComposedIdentity +finalOwner :: Foldable m => Identity m -> ComposedIdentity finalOwner = last . unfoldOwners -displayIdentity :: (Foldable m, Applicative m) => Identity m -> Text +displayIdentity :: Foldable m => Identity m -> Text displayIdentity identity = T.concat [ T.intercalate (T.pack " / ") $ map (fromMaybe (T.pack "<unnamed>") . idName) owners ] |