aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Sproxy/Logging.hs5
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