diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2023-08-27 18:33:16 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-08-30 20:53:55 +0200 |
| commit | c27b3c23ecdd53acdbfece747b9bbdb39bf4dae9 (patch) | |
| tree | 52a4be70840e2691195ec54149f5ac14ec112606 /src/Main.hs | |
| parent | dfddb65ad1abf5ba4171be42d303850ebbc363ee (diff) | |
Replace storedStorage usage with MonadHead
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index b3f503d..cbefeb2 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -113,7 +113,8 @@ main = do Nothing -> error "ref does not exist" Just refs | Just idt <- validateIdentityF $ map wrappedLoad refs -> do - BC.putStrLn . showRefDigest . refDigest . storedRef . idData =<< interactiveIdentityUpdate idt + BC.putStrLn . showRefDigest . refDigest . storedRef . idData =<< + (either fail return <=< runExceptT $ runReaderT (interactiveIdentityUpdate idt) st) | otherwise -> error "invalid identity" ["test"] -> runTestTool st @@ -413,7 +414,7 @@ cmdDiscoveryInit = void $ do cmdDiscovery :: Command cmdDiscovery = void $ do Just peer <- gets csIcePeer - st <- gets (storedStorage . headStoredObject . csHead) + st <- getStorage sref <- asks ciLine eprint <- asks ciPrint liftIO $ readRef st (BC.pack sref) >>= \case |