From 87921e616486e57943a500c7a10a9f8555eac0ae Mon Sep 17 00:00:00 2001 From: Igor Pashev 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