diff options
| author | LLLL Colonq <llll@colonq> | 2024-10-24 21:48:40 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-10-24 21:48:40 -0400 |
| commit | e1a38bb1fa9bd08633c4e760997ee5571a962505 (patch) | |
| tree | 8a8f91c2dcdc95ad18049c08b20c3e6bbe0e4696 /fig-monitor-irc/src/Fig/Monitor/IRC.hs | |
| parent | 7bbfc556ec267a2f575a35d36fc0b99408c46930 (diff) | |
Reduce split length
Diffstat (limited to 'fig-monitor-irc/src/Fig/Monitor/IRC.hs')
| -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] |