From 54ed2ed9761729b26d70c33c1d92d1acac6cc1f5 Mon Sep 17 00:00:00 2001 From: Jon Doe Date: Tue, 29 Sep 2020 14:55:38 +0200 Subject: [PATCH] oops --- src/Carrion/Plugin/IO/IRC/Client.hs | 3 ++- state | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Carrion/Plugin/IO/IRC/Client.hs b/src/Carrion/Plugin/IO/IRC/Client.hs index cf1eada..4319056 100644 --- a/src/Carrion/Plugin/IO/IRC/Client.hs +++ b/src/Carrion/Plugin/IO/IRC/Client.hs @@ -257,7 +257,8 @@ acceptExternalComms myIRCState manhole = forever $ do newGift <- liftIO $ inspectManhole manhole -- putStrLn $ "trying to maybe send to " ++ (T.unpack .getChannel . genericAutorToNSAutor . getSewageAutor $ newGift) - runIRCAction (mapM (\fff -> send $ Privmsg (getChannel . genericAutorToNSAutor . getSewageAutor $ newGift) $ Right fff) (nlSplit $ getSewage newGift)) myIRCState + + runIRCAction (mapM (\fff -> send $ Privmsg (getChannel . genericAutorToNSAutor . getSewageAutor $ newGift) $ Right fff) (foldr1 (++) . map (T.chunksOf 255) . nlSplit $ getSewage newGift)) myIRCState diff --git a/state b/state index 45e92f9..acd0201 160000 --- a/state +++ b/state @@ -1 +1 @@ -Subproject commit 45e92f9730be1928fec14edcf5a653dec05a265c +Subproject commit acd02019cc2acba22b87c9e0a67d0f241145ad09