diff --git a/cabal-install/Distribution/Client/CmdUpdate.hs b/cabal-install/Distribution/Client/CmdUpdate.hs
index 8c6c0c3bb551cdcd919255d1f886f485d9c404a3..fa7e43628f01ad14a1b0022404021dab13597bac 100644
--- a/cabal-install/Distribution/Client/CmdUpdate.hs
+++ b/cabal-install/Distribution/Client/CmdUpdate.hs
@@ -115,7 +115,7 @@ updateAction (applyFlagDefaults -> (configFlags, configExFlags, installFlags, ha
         repoName    = remoteRepoName . repoRemote
         parseArg :: String -> IO UpdateRequest
         parseArg s = case simpleParse s of
-          Just r -> pure r
+          Just r -> return r
           Nothing -> die' verbosity $ "'new-update' unable to parse repo: \"" ++ s ++ "\""
     updateRepoRequests <- mapM parseArg extraArgs