Skip to content

Instantly share code, notes, and snippets.

@crabtw
Created November 3, 2011 07:22
Show Gist options
  • Select an option

  • Save crabtw/1335971 to your computer and use it in GitHub Desktop.

Select an option

Save crabtw/1335971 to your computer and use it in GitHub Desktop.
fix ACTION command
diff --git a/Network/SimpleIRC/Messages.hs b/Network/SimpleIRC/Messages.hs
index ee729ef..33291d4 100644
--- a/Network/SimpleIRC/Messages.hs
+++ b/Network/SimpleIRC/Messages.hs
@@ -170,6 +170,6 @@ showCommand (MNick nick) = "NICK " `B.append` nick
showCommand (MNotice chan msg) = "NOTICE " `B.append` chan `B.append`
" :" `B.append` msg
showCommand (MAction chan msg) = showCommand $ MPrivmsg chan
- ("\x01 ACTION " `B.append` msg
- `B.append` "\x01")
+ ("\SOHACTION " `B.append` msg
+ `B.append` "\SOH")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment