oops
This commit is contained in:
parent
5c875a7080
commit
54ed2ed976
@ -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
2
state
@ -1 +1 @@
|
|||||||
Subproject commit 45e92f9730be1928fec14edcf5a653dec05a265c
|
Subproject commit acd02019cc2acba22b87c9e0a67d0f241145ad09
|
Loading…
x
Reference in New Issue
Block a user