Commit 40ef7672 authored by Camil Staps's avatar Camil Staps 🚀

Merge branch 'master' into no-results-response

parents f1a57a23 73e3f056
......@@ -191,6 +191,7 @@ Start w
| m.[0] == '!'
# (msgs, w) = realProcess (split " " $ m % (1, size m)) w
= (Just $ map reply msgs, w)
| m % (0,4) == "\001PING" = (Just [reply m], w)
= (Just [], w)
where
reply = case (\(CSepList [t:_]) -> t.[0]) t of
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment