From e1a38bb1fa9bd08633c4e760997ee5571a962505 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 24 Oct 2024 21:48:40 -0400 Subject: Reduce split length --- fig-monitor-irc/src/Fig/Monitor/IRC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'fig-monitor-irc/src') 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] -- cgit v1.2.3