hsdev 0.1.5.3 → 0.1.5.4

raw patch · 2 files changed

+3/−4 lines, 2 filesdep ~simple-log

Dependency ranges changed: simple-log

Files

• hsdev.cabal +2/−2
• src/HsDev/Server/Base.hs +1/−2

@@ -2,7 +2,7 @@ --  see http://haskell.org/cabal/users-guide/
 
 name:                hsdev
-version:             0.1.5.3
+version:             0.1.5.4
 synopsis:            Haskell development library and tool with support of autocompletion, symbol info, go to declaration, find references etc.
 description:
   Haskell development library and tool with support of autocompletion, symbol info, go to declaration, find references, hayoo search etc.
@@ -129,7 +129,7 @@     process >= 1.2.0,
     regex-pcre-builtin >= 0.94,
     scientific >= 0.3,
-    simple-log >= 0.3.2,
+    simple-log >= 0.3.3,
     syb >= 0.5.1,
     template-haskell,
     text >= 1.2.0,

@@ -19,7 +19,6 @@ import Data.Text (Text)
 import qualified Data.Text as T (pack, unpack)
 import System.Log.Simple hiding (Level(..), Message(..), Command(..))
-import System.Log.Simple.Base (writeLog)
 import qualified System.Log.Simple.Base as Log
 
 import qualified Control.Concurrent.FiniteChan as F
@@ -64,7 +63,7 @@ 		listenLog f = logException "listen log" (F.putChan msgs) $ do
 			msgs' <- F.dupChan msgs
 			F.readChan msgs' >>= f
-	return (l, \lev -> writeLog l lev . T.pack, listenLog, F.closeChan msgs >> takeMVar outputDone)
+	return (l, \lev -> writeLog l lev . T.pack, listenLog, stopLog l >> F.closeChan msgs >> takeMVar outputDone)
 	where
 		rule' :: Log.Rule
 		rule' = parseRule_ $ T.pack ("/: " ++ serverLogConfig sopts)