Skip to content

Commit 97f2c61

Browse files
snoybergborsboom
authored andcommitted
Fix an hlint warning
1 parent a788869 commit 97f2c61

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/Stack/Docker.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -83,7 +83,7 @@ import Text.Printf (printf)
8383
import Control.Monad.Trans.Control (MonadBaseControl)
8484
#else
8585
import Control.Concurrent (threadDelay)
86-
import Control.Monad.Trans.Control (MonadBaseControl, liftBaseWith)
86+
import qualified Control.Monad.Trans.Control as Control
8787
import System.Posix.Signals
8888
import qualified System.Posix.User as PosixUser
8989
#endif
@@ -365,7 +365,7 @@ runContainerAndExit getCmdArgs
365365
,args])
366366
before
367367
#ifndef WINDOWS
368-
runInBase <- liftBaseWith $ \run -> return (void . run)
368+
runInBase <- Control.liftBaseWith $ \run -> return (void . run)
369369
oldHandlers <- forM [sigINT,sigABRT,sigHUP,sigPIPE,sigTERM,sigUSR1,sigUSR2] $ \sig -> do
370370
let sigHandler = runInBase $ do
371371
readProcessNull Nothing envOverride "docker"

0 commit comments

Comments
 (0)