From 8aaef91a6fc56e1488b42d3f18472c75f190e56a Mon Sep 17 00:00:00 2001
From: Michael Sloan <mgsloan@gmail.com>
Date: Tue, 25 Oct 2016 16:38:01 -0700
Subject: [PATCH] Fix a redundant constraint warning

---
 src/Stack/Docker.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Stack/Docker.hs b/src/Stack/Docker.hs
index 62f63e5750..225a8319fd 100644
--- a/src/Stack/Docker.hs
+++ b/src/Stack/Docker.hs
@@ -675,7 +675,7 @@ pull =
      pullImage envOverride docker (dockerImage docker)
 
 -- | Pull Docker image from registry.
-pullImage :: (MonadLogger m,MonadIO m,MonadThrow m,MonadBaseControl IO m)
+pullImage :: (MonadLogger m,MonadIO m,MonadThrow m)
           => EnvOverride -> DockerOpts -> String -> m ()
 pullImage envOverride docker image =
   do $logInfo (concatT ["Pulling image from registry: '",image,"'"])