Don't use do in cfgReadProject.

commercialhaskell · Sep 5, 2022 · 92d3141 · 92d3141
1 parent b523207
commit 92d3141
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/src/Stack/ConfigCmd.hs b/src/Stack/ConfigCmd.hs
@@ -159,12 +159,9 @@ cfgReadProject scope = do
     (configFilePath, yamlConfig) <- cfgRead scope
     let parser = parseProjectAndConfigMonoid (parent configFilePath)
     case Yaml.parseEither parser yamlConfig of
-        Left err -> do
-            logError . display $ T.pack err
-            return Nothing
-        Right (WithJSONWarnings res _warnings) -> do
-            ProjectAndConfigMonoid project _ <- liftIO res
-            return $ Just project
+        Left err -> logError (display $ T.pack err) >> return Nothing
+        Right (WithJSONWarnings res _warnings) -> liftIO res >>=
+            \(ProjectAndConfigMonoid project _) -> return $ Just project
 
 cfgCmdDumpProject :: (HasConfig env, HasLogFunc env) => ConfigCmdDumpProject -> RIO env ()
 cfgCmdDumpProject (ConfigCmdDumpProject dumpFormat) = do