diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2020-02-04 23:28:46 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2020-02-04 23:28:46 +0100 |
| commit | 8dc945aae35fffd8e64c524b71d7316297721daf (patch) | |
| tree | d1a000e303f6a22fdcf522b2b4729a81ea0c2fcc /src/Main.hs | |
| parent | 6f0bcff200598d085c89d167aa126d25fc5df3ed (diff) | |
Service: unify service and packet types
Also provide default unit definition for the service state.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 [] |