diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2019-11-25 22:15:05 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2019-11-26 22:16:35 +0100 |
| commit | a70628457a5ceccd37d1ba2e1791d4493b5a0502 (patch) | |
| tree | 1daddb314ae7284f7e5c0c1e6308c19c681aedd1 /src/Service.hs | |
| parent | dd4c6aeae1cf30035f3c7c3d52e58082f6b7aa36 (diff) | |
Load and announce identity updates
Diffstat (limited to 'src/Service.hs')
| -rw-r--r-- | src/Service.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Service.hs b/src/Service.hs index f08a7a2..6b490ff 100644 --- a/src/Service.hs +++ b/src/Service.hs @@ -32,7 +32,6 @@ fromService (SomeService s) = cast s data ServiceInput = ServiceInput { svcPeer :: UnifiedIdentity - , svcPeerOwner :: UnifiedIdentity , svcPrintOp :: String -> IO () } @@ -46,7 +45,7 @@ newtype ServiceHandler s a = ServiceHandler (ReaderT ServiceInput (StateT (Servi handleServicePacket :: Service s => Storage -> ServiceInput -> s -> Stored (ServicePacket s) -> IO (Maybe (ServicePacket s), s) handleServicePacket st input svc packet = do - herb <- loadLocalState st + herb <- loadLocalStateHead st let erb = wrappedLoad $ headRef herb sstate = ServiceState { svcValue = svc, svcLocal = erb } ServiceHandler handler = serviceHandler packet |