File tree Expand file tree Collapse file tree 1 file changed +3
-6
lines changed Expand file tree Collapse file tree 1 file changed +3
-6
lines changed Original file line number Diff line number Diff line change @@ -159,12 +159,9 @@ cfgReadProject scope = do
159159 (configFilePath, yamlConfig) <- cfgRead scope
160160 let parser = parseProjectAndConfigMonoid (parent configFilePath)
161161 case Yaml. parseEither parser yamlConfig of
162- Left err -> do
163- logError . display $ T. pack err
164- return Nothing
165- Right (WithJSONWarnings res _warnings) -> do
166- ProjectAndConfigMonoid project _ <- liftIO res
167- return $ Just project
162+ Left err -> logError (display $ T. pack err) >> return Nothing
163+ Right (WithJSONWarnings res _warnings) -> liftIO res >>=
164+ \ (ProjectAndConfigMonoid project _) -> return $ Just project
168165
169166cfgCmdDumpProject :: (HasConfig env , HasLogFunc env ) => ConfigCmdDumpProject -> RIO env ()
170167cfgCmdDumpProject (ConfigCmdDumpProject dumpFormat) = do
You can’t perform that action at this time.
0 commit comments