From 28f3049341e21e299b15e3948422fb113947621a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 8 Jan 2020 22:12:18 +0100 Subject: Interactive identity update for custom refs --- src/Main.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 93517b2..b143253 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -71,6 +71,14 @@ main = do ["update-identity"] -> updateSharedIdentity st + ("update-identity" : srefs) -> do + sequence <$> mapM (readRef st . BC.pack) srefs >>= \case + Nothing -> error "ref does not exist" + Just refs + | Just idt <- validateIdentityF $ map wrappedLoad refs -> do + BC.putStrLn . showRefDigest . refDigest . storedRef . idData =<< interactiveIdentityUpdate idt + | otherwise -> error "invalid identity" + [bhost] -> interactiveLoop st bhost _ -> error "Expecting broadcast address" -- cgit v1.2.3