diff options
| -rw-r--r-- | fig-monitor-irc/src/Fig/Monitor/IRC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fig-monitor-irc/src/Fig/Monitor/IRC.hs b/fig-monitor-irc/src/Fig/Monitor/IRC.hs index ae38b3a..116a490 100644 --- a/fig-monitor-irc/src/Fig/Monitor/IRC.hs +++ b/fig-monitor-irc/src/Fig/Monitor/IRC.hs @@ -28,8 +28,8 @@ data OutgoingMessage = OutgoingMessage splitLineIRCLength :: Text -> [Text] splitLineIRCLength x - | Text.length x > 400 = - let (m, xs) = Text.splitAt 400 x + | Text.length x > 300 = + let (m, xs) = Text.splitAt 300 x in m : splitLineIRCLength xs | otherwise = [x] |