This commit is contained in:
Jon Doe
2020-09-29 14:55:38 +02:00
committed by Maciej Bonin
parent 5c875a7080
commit 54ed2ed976
2 changed files with 3 additions and 2 deletions

View File

@ -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

2
state

Submodule state updated: 45e92f9730...acd02019cc