diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2021-12-19 22:23:41 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2021-12-19 22:23:41 +0100 |
| commit | 070122683d0c9a11f9221ede93df0590bc28494d (patch) | |
| tree | 277752e2e6e9d8227cd091886d9f4864833152f6 /src/Main.hs | |
| parent | c1fff94d244d6754a0976d0385d4333249fc5ca6 (diff) | |
Service attributes
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 [] |