From 24050e5af3abca5f8cf6a12208825467229aeec9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Wed, 16 Sep 2015 05:18:44 +0200
Subject: [PATCH] Fix warnings

---
 Language/Haskell/GhcMod/Output.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Language/Haskell/GhcMod/Output.hs b/Language/Haskell/GhcMod/Output.hs
index 0d514a2..3dca02e 100644
--- a/Language/Haskell/GhcMod/Output.hs
+++ b/Language/Haskell/GhcMod/Output.hs
@@ -42,7 +42,7 @@ import Control.Monad
 import Control.Monad.State.Strict
 import Control.DeepSeq
 import Control.Exception
-import Control.Concurrent (forkIO, killThread, myThreadId)
+import Control.Concurrent (forkIO, killThread)
 import Control.Concurrent.MVar
 import Control.Concurrent.Chan
 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 l (StateT a) =
     StateT $ \f -> do
-      (a, s') <- a $ L.get l f
-      return (a, L.set l s' f)
+      (a', s') <- a $ L.get l f
+      return (a', L.set l s' f)
 
 readProcessStderrChan ::
     GmOut m => m (FilePath -> [String] -> String -> IO String)