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 forever $ do
newGift <- liftIO $ inspectManhole manhole newGift <- liftIO $ inspectManhole manhole
-- putStrLn $ "trying to maybe send to " ++ (T.unpack .getChannel . genericAutorToNSAutor . getSewageAutor $ newGift) -- 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

@ -1 +1 @@
Subproject commit 45e92f9730be1928fec14edcf5a653dec05a265c Subproject commit acd02019cc2acba22b87c9e0a67d0f241145ad09