rnhmjoj/oglaf
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

update for telegram-cli fork

Browse Source
This commit is contained in:
rnhmjoj 2016-12-17 03:10:12 +01:00
parent bd52198433
commit 3ce3844d9d
No known key found for this signature in database
GPG Key ID: 362BB82B7E496B7C
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Telegram.hs
View File

@ -17,7 +17,7 @@ args = ["-d", "-P", show port]
telegramProcess :: IO ProcessHandle telegramProcess :: IO ProcessHandle
telegramProcess = do telegramProcess = do
(_,_,_, handle) <- createProcess (proc program args) { create_group = True } (_,_,_, handle) <- createProcess (proc program args)
return handle return handle
@ -28,8 +28,7 @@ telegramSocket = recoverAll timeout (const connect)
closeTelegram :: Handle -> ProcessHandle -> IO () closeTelegram :: Handle -> ProcessHandle -> IO ()
closeTelegram socket handle = closeTelegram socket handle = hClose socket >> terminateProcess handle
hClose socket >> replicateM_ 2 (interruptProcessGroupOf handle)
send :: Handle -> String -> IO () send :: Handle -> String -> IO ()

2
oglaf.cabal
View File

@ -12,7 +12,7 @@ cabal-version: >=1.10
executable oglaf executable oglaf
main-is: Main.hs main-is: Main.hs
build-depends: base >=4.8 && <4.9, network, build-depends: base == 4.9.*, network,
bytestring, text, retry, tagsoup, bytestring, text, retry, tagsoup,
MissingH, process, temporary, MissingH, process, temporary,
http-conduit, xml-conduit, html-conduit http-conduit, xml-conduit, html-conduit