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/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 6da9826..b692357 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -96,7 +96,7 @@ interactiveLoop st bhost = runInputT defaultSettings $ do
         startServer erebosHead extPrintLn bhost
             [ SomeService @AttachService Proxy
             , SomeService @SyncService Proxy
-            , SomeService @DirectMessageService Proxy
+            , SomeService @DirectMessage Proxy
             ]
 
     peers <- liftIO $ newMVar []
-- 
cgit v1.2.3