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