diff options
| author | tv <tv@krebsco.de> | 2019-01-27 03:23:17 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2019-01-27 03:27:29 +0100 |
| commit | e9ca12a945b1d1c068e9c31050e264cb20690db4 (patch) | |
| tree | 6f12a1ede100424ebbd24f97f46bf9c31243d672 /src/Reaktor/Plugins/Ping.hs | |
| parent | aaddda85c74540d1dab452dcdddf425927983ea9 (diff) | |
Reaktor: add data Command
Diffstat (limited to 'src/Reaktor/Plugins/Ping.hs')
| -rw-r--r-- | src/Reaktor/Plugins/Ping.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Reaktor/Plugins/Ping.hs b/src/Reaktor/Plugins/Ping.hs index 436ebe2..07aae9e 100644 --- a/src/Reaktor/Plugins/Ping.hs +++ b/src/Reaktor/Plugins/Ping.hs @@ -10,6 +10,6 @@ new :: Actions -> IO (Message -> IO ()) new Actions{..} = return $ \case Message _ cmd args -> - when (cmd == "PING") $ - aSend (Message Nothing "PONG" args) + when (cmd == PING) $ + aSend (Message Nothing PONG args) _ -> pure () |