diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 9dcbae9..1515648 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -99,7 +99,7 @@ main = do Nothing -> error "ref does not exist" Just ref -> print $ storedGeneration (wrappedLoad ref :: Stored Object) - ["update-identity"] -> updateSharedIdentity =<< loadLocalStateHead st + ["update-identity"] -> runReaderT updateSharedIdentity =<< loadLocalStateHead st ("update-identity" : srefs) -> do sequence <$> mapM (readRef st . BC.pack) srefs >>= \case @@ -290,8 +290,7 @@ cmdHistory = void $ do cmdUpdateIdentity :: Command cmdUpdateIdentity = void $ do - ehead <- asks ciHead - liftIO $ updateSharedIdentity ehead + runReaderT updateSharedIdentity =<< asks ciHead cmdAttach :: Command cmdAttach = join $ attachToOwner |