From 3ce3844d9dde77300398972134c7d451cf54374e Mon Sep 17 00:00:00 2001
From: rnhmjoj <micheleguerinirocco@me.com>
Date: Sat, 17 Dec 2016 03:10:12 +0100
Subject: [PATCH] update for telegram-cli fork

---
 Telegram.hs | 5 ++---
 oglaf.cabal | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/Telegram.hs b/Telegram.hs
index 8723702..094d867 100644
--- a/Telegram.hs
+++ b/Telegram.hs
@@ -17,7 +17,7 @@ args         = ["-d", "-P", show port]
 
 telegramProcess :: IO ProcessHandle
 telegramProcess = do
-  (_,_,_, handle) <- createProcess (proc program args) { create_group = True }
+  (_,_,_, handle) <- createProcess (proc program args)
   return handle
 
 
@@ -28,8 +28,7 @@ telegramSocket = recoverAll timeout (const connect)
 
 
 closeTelegram :: Handle -> ProcessHandle -> IO ()
-closeTelegram socket handle =
-  hClose socket >> replicateM_ 2 (interruptProcessGroupOf handle)
+closeTelegram socket handle = hClose socket >> terminateProcess handle
 
 
 send :: Handle -> String -> IO ()
diff --git a/oglaf.cabal b/oglaf.cabal
index b6f13b4..a031f7b 100644
--- a/oglaf.cabal
+++ b/oglaf.cabal
@@ -12,7 +12,7 @@ cabal-version:       >=1.10
 
 executable oglaf
   main-is:             Main.hs
-  build-depends:       base >=4.8 && <4.9, network,
+  build-depends:       base == 4.9.*, network,
                        bytestring, text, retry, tagsoup,
                        MissingH, process, temporary,
                        http-conduit, xml-conduit, html-conduit