diff options
Diffstat (limited to 'src/Erebos/Identity.hs')
| -rw-r--r-- | src/Erebos/Identity.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Erebos/Identity.hs b/src/Erebos/Identity.hs index 491df6e..8c3760c 100644 --- a/src/Erebos/Identity.hs +++ b/src/Erebos/Identity.hs @@ -325,7 +325,7 @@ lookupProperty sel topHeads = findResult propHeads findResult [] = Nothing findResult xs = sel $ fromSigned $ minimum xs -mergeIdentity :: (MonadStorage m, MonadError e m, FromErebosError e, MonadIO m) => Identity f -> m UnifiedIdentity +mergeIdentity :: (MonadStorage m, MonadError e m, FromErebosError e) => Identity f -> m UnifiedIdentity mergeIdentity idt | Just idt' <- toUnifiedIdentity idt = return idt' mergeIdentity idt@Identity {..} = do (owner, ownerData) <- case idOwner_ of @@ -335,7 +335,7 @@ mergeIdentity idt@Identity {..} = do return (Just owner, Just $ idData owner) let public = idKeyIdentity idt - secret <- loadKey public + secret <- mloadKey public unifiedBaseData <- case toList $ idDataF idt of |