hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix warnings

Browse Source
This commit is contained in:
Daniel Gröber 2015-09-16 05:18:44 +02:00
parent 380acdaee0
commit 24050e5af3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Language/Haskell/GhcMod/Output.hs
View File

@ -42,7 +42,7 @@ import Control.Monad
import Control.Monad.State.Strict import Control.Monad.State.Strict
import Control.DeepSeq import Control.DeepSeq
import Control.Exception import Control.Exception
import Control.Concurrent (forkIO, killThread, myThreadId) import Control.Concurrent (forkIO, killThread)
import Control.Concurrent.MVar import Control.Concurrent.MVar
import Control.Concurrent.Chan import Control.Concurrent.Chan
import Pipes import Pipes
@ -171,8 +171,8 @@ stdoutGateway (outPf, errPf) chan = do
zoom :: Monad m => (f L.:-> o) -> StateT o m a -> StateT f m a zoom :: Monad m => (f L.:-> o) -> StateT o m a -> StateT f m a
zoom l (StateT a) = zoom l (StateT a) =
StateT $ \f -> do StateT $ \f -> do
(a, s') <- a $ L.get l f (a', s') <- a $ L.get l f
return (a, L.set l s' f) return (a', L.set l s' f)
readProcessStderrChan :: readProcessStderrChan ::
GmOut m => m (FilePath -> [String] -> String -> IO String) GmOut m => m (FilePath -> [String] -> String -> IO String)