diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2017-10-14 23:52:36 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2017-10-14 23:52:36 +0300 |
| commit | 87921e616486e57943a500c7a10a9f8555eac0ae (patch) | |
| tree | d5fe9f7a7e548a4eabb12af7bd90923933c78894 | |
| parent | 9cdee8017606580a3c4e8ca7de854cf90e41d9cf (diff) | |
| download | sproxy2-87921e616486e57943a500c7a10a9f8555eac0ae.tar.gz | |
Use void
| -rw-r--r-- | src/Sproxy/Logging.hs | 5 |
1 files changed, 2 insertions, 3 deletions
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 |