diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 10 |
1 files changed, 5 insertions, 5 deletions
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 [] |