fixed but in toMessage

bernstein · Nov 6, 2011 · 2c52ff2 · 2c52ff2
1 parent a3a42c4
commit 2c52ff2
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 _ = error "toMessage: implement the rest of me"
+toMessage _ = I.Message Nothing I.ERROR []