added error message

bernstein · Nov 6, 2011 · 34b9b09 · 34b9b09
1 parent 81d3563
commit 34b9b09
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Ircfs/Ctl.hs b/Ircfs/Ctl.hs
@@ -102,5 +102,5 @@ toMessage (Privmsg t s) = I.Message Nothing I.PRIVMSG [t,B.cons 58 s]
 toMessage (Quit s) = I.Message Nothing I.QUIT [s]
 --toMessage (Remove s) = I.Message Nothing I.REMOVE [s]
 toMessage (Who s) = I.Message Nothing I.WHO [s]
-toMessage _ = I.Message Nothing I.ERROR []
+toMessage _ = I.Message Nothing I.ERROR ["unknown CtlCommand"]