From 87921e616486e57943a500c7a10a9f8555eac0ae Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sat, 14 Oct 2017 23:52:36 +0300
Subject: Use void

---
 src/Sproxy/Logging.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Sproxy/Logging.hs b/src/Sproxy/Logging.hs
index 93bc355..3a52bf4 100644
--- a/src/Sproxy/Logging.hs
+++ b/src/Sproxy/Logging.hs
@@ -13,7 +13,7 @@ import Prelude hiding (error)
 import Control.Applicative (empty)
 import Control.Concurrent (forkIO)
 import Control.Concurrent.Chan (Chan, newChan, readChan, writeChan)
-import Control.Monad (forever, when)
+import Control.Monad (forever, void, when)
 import Data.Aeson (FromJSON, ToJSON)
 import qualified Data.Aeson as JSON
 import Data.Char (toLower)
@@ -28,8 +28,7 @@ start None = return ()
 start lvl = do
   writeIORef logLevel lvl
   ch <- readIORef chanRef
-  _ <- forkIO . forever $ readChan ch >>= hPrint stderr
-  return ()
+  void . forkIO . forever $ readChan ch >>= hPrint stderr
 
 info :: String -> IO ()
 info = send . Message Info
-- 
cgit v1.2.3