From cc132e005f974577c2ff782add7df8247c4eb541 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 29 Dec 2020 21:39:19 +0100
Subject: Discovery service

---
 src/Service.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'src/Service.hs')

diff --git a/src/Service.hs b/src/Service.hs
index 704bc67..eae43ec 100644
--- a/src/Service.hs
+++ b/src/Service.hs
@@ -13,7 +13,10 @@ module Service (
     svcGet, svcSet, svcModify,
     svcGetGlobal, svcSetGlobal, svcModifyGlobal,
     svcGetLocal, svcSetLocal,
+
+    svcSelf,
     svcPrint,
+
     replyPacket, replyStored, replyStoredRef,
 ) where
 
@@ -27,6 +30,7 @@ import Data.UUID (UUID)
 import qualified Data.UUID as U
 
 import Identity
+import {-# SOURCE #-} Network
 import State
 import Storage
 
@@ -76,7 +80,9 @@ mkServiceID :: String -> ServiceID
 mkServiceID = maybe (error "Invalid service ID") ServiceID . U.fromString
 
 data ServiceInput = ServiceInput
-    { svcPeer :: UnifiedIdentity
+    { svcPeer :: Peer
+    , svcPeerIdentity :: UnifiedIdentity
+    , svcServer :: Server
     , svcPrintOp :: String -> IO ()
     }
 
@@ -129,6 +135,10 @@ svcGetLocal = gets svcLocal
 svcSetLocal :: Stored LocalState -> ServiceHandler s ()
 svcSetLocal x = modify $ \st -> st { svcLocal = x }
 
+svcSelf :: ServiceHandler s UnifiedIdentity
+svcSelf = maybe (throwError "failed to validate own identity") return .
+        validateIdentity . lsIdentity . fromStored =<< svcGetLocal
+
 svcPrint :: String -> ServiceHandler s ()
 svcPrint str = liftIO . ($str) =<< asks svcPrintOp
 
-- 
cgit v1.2.3