Commit f64cee91 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov

Formatting, 80-col violations. [ci skip]

parent 49b323bf
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE ViewPatterns #-}
-- | cabal-install CLI command: build
--
......
......@@ -160,10 +160,10 @@ import Network.URI
-- 'PackageName'. This returns the configuration that applies to all local
-- packages plus any package-specific configuration for this package.
--
lookupLocalPackageConfig :: (Semigroup a, Monoid a)
=> (PackageConfig -> a)
-> ProjectConfig
-> PackageName -> a
lookupLocalPackageConfig
:: (Semigroup a, Monoid a)
=> (PackageConfig -> a) -> ProjectConfig -> PackageName
-> a
lookupLocalPackageConfig field ProjectConfig {
projectConfigLocalPackages,
projectConfigSpecificPackage
......@@ -194,10 +194,10 @@ projectConfigWithBuilderRepoContext verbosity BuildTimeSettings{..} =
-- that doesn't have an http transport. And that avoids having to have access
-- to the 'BuildTimeSettings'
--
projectConfigWithSolverRepoContext :: Verbosity
-> ProjectConfigShared
-> ProjectConfigBuildOnly
-> (RepoContext -> IO a) -> IO a
projectConfigWithSolverRepoContext
:: Verbosity -> ProjectConfigShared -> ProjectConfigBuildOnly
-> (RepoContext -> IO a)
-> IO a
projectConfigWithSolverRepoContext verbosity
ProjectConfigShared{..}
ProjectConfigBuildOnly{..} =
......@@ -205,8 +205,10 @@ projectConfigWithSolverRepoContext verbosity
verbosity
(fromNubList projectConfigRemoteRepos)
(fromNubList projectConfigLocalRepos)
(fromFlagOrDefault (error "projectConfigWithSolverRepoContext: projectConfigCacheDir")
projectConfigCacheDir)
(fromFlagOrDefault
(error
"projectConfigWithSolverRepoContext: projectConfigCacheDir")
projectConfigCacheDir)
(flagToMaybe projectConfigHttpTransport)
(flagToMaybe projectConfigIgnoreExpiry)
(fromNubList projectConfigProgPathExtra)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment