From 8dc945aae35fffd8e64c524b71d7316297721daf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 4 Feb 2020 23:28:46 +0100
Subject: Service: unify service and packet types

Also provide default unit definition for the service state.
---
 src/Message.hs | 25 +++++--------------------
 1 file changed, 5 insertions(+), 20 deletions(-)

(limited to 'src/Message.hs')

diff --git a/src/Message.hs b/src/Message.hs
index ee59dad..0039d7e 100644
--- a/src/Message.hs
+++ b/src/Message.hs
@@ -1,8 +1,5 @@
 module Message (
     DirectMessage(..),
-    DirectMessageService,
-    ServicePacket(DirectMessagePacket),
-
     sendDirectMessage,
 
     DirectMessageThread(..),
@@ -50,19 +47,11 @@ instance Storable DirectMessage where
         <*> loadDate "time"
         <*> loadText "text"
 
-data DirectMessageService
-
-instance Service DirectMessageService where
+instance Service DirectMessage where
     serviceID _ = mkServiceID "c702076c-4928-4415-8b6b-3e839eafcb0d"
 
-    data ServiceState DirectMessageService = DirectMessageService
-    emptyServiceState = DirectMessageService
-
-    newtype ServicePacket DirectMessageService = DirectMessagePacket (Stored DirectMessage)
-
-    serviceHandler packet = do
-        let DirectMessagePacket smsg = fromStored packet
-            msg = fromStored smsg
+    serviceHandler smsg = do
+        let msg = fromStored smsg
         powner <- asks $ finalOwner . svcPeer
         tzone <- liftIO $ getCurrentTimeZone
         erb <- svcGetLocal
@@ -86,14 +75,10 @@ instance Service DirectMessageService where
                svcSetLocal erb'
                when (powner `sameIdentity` msgFrom msg) $ do
                    svcPrint $ formatMessage tzone msg
-                   replyStoredRef packet
+                   replyStoredRef smsg
 
            else svcPrint "Owner mismatch"
 
-instance Storable (ServicePacket DirectMessageService) where
-    store' (DirectMessagePacket smsg) = store' smsg
-    load' = DirectMessagePacket <$> load'
-
 
 data MessageState = MessageState
     { msPrev :: [Stored MessageState]
@@ -155,7 +140,7 @@ sendDirectMessage self peer text = do
             }
         return ([next], smsg)
 
-    sendToPeer self peer $ DirectMessagePacket smsg
+    sendToPeerStored self peer smsg
     return smsg
 
 
-- 
cgit v1.2.3