diff options
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 |