From 070122683d0c9a11f9221ede93df0590bc28494d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 19 Dec 2021 22:23:41 +0100
Subject: Service attributes

---
 src/Main.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index fcdb2c5..9dcbae9 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -129,11 +129,11 @@ interactiveLoop st opts = runInputT defaultSettings $ do
                                                         _ -> str ++ "\n";
     server <- liftIO $ do
         startServer (optServer opts) erebosHead extPrintLn
-            [ SomeService @AttachService Proxy
-            , SomeService @SyncService Proxy
-            , SomeService @ContactService Proxy
-            , SomeService @DirectMessage Proxy
-            , SomeService @DiscoveryService Proxy
+            [ someService @AttachService Proxy
+            , someService @SyncService Proxy
+            , someService @ContactService Proxy
+            , someService @DirectMessage Proxy
+            , someService @DiscoveryService Proxy
             ]
 
     peers <- liftIO $ newMVar []
-- 
cgit v1.2.3