Fix GHC 7.8 build

sebastianpoeplau · Oct 9, 2015 · 366050b · 366050b
1 parent 5b39e5f
commit 366050b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Stack/Config/Docker.hs b/src/Stack/Config/Docker.hs
@@ -4,6 +4,7 @@
 module Stack.Config.Docker where
 
 import Control.Exception.Lifted
+import Control.Monad
 import Control.Monad.Catch (throwM, MonadThrow)
 import Data.List (find)
 import Data.Maybe
@@ -63,7 +64,7 @@ dockerOptsFromMonoid mproject stackRoot DockerOptsMonoid{..} = do
                     Right p -> return p
     dockerStackExe <-
         case dockerMonoidStackExe of
-            Just e -> Just <$> parseDockerStackExe e
+            Just e -> liftM Just (parseDockerStackExe e)
             Nothing -> return Nothing
     return DockerOpts{..}
   where emptyToNothing Nothing = Nothing