@@ -25,7 +25,7 @@ import Distribution.Client.Config
2525 , defaultStoreDir
2626 , getConfigFilePath
2727 )
28- import Distribution.Client.DistDirLayout (CabalDirLayout (.. ), distProjectRootDirectory , StoreDirLayout (.. ))
28+ import Distribution.Client.DistDirLayout (CabalDirLayout (.. ), StoreDirLayout (.. ), distProjectRootDirectory )
2929import Distribution.Client.Errors
3030import Distribution.Client.GlobalFlags
3131import Distribution.Client.NixStyleOptions
@@ -231,7 +231,6 @@ pathAction flags@NixStyleFlags{extraFlags = pathFlags'} cliTargetStrings globalF
231231 let pathFlags =
232232 if pathCompiler pathFlags' == NoFlag && pathDirectories pathFlags' == NoFlag
233233 then -- if not a single key to query is given, query everything!
234-
235234 pathFlags'
236235 { pathCompiler = Flag True
237236 , pathDirectories = Flag [minBound .. maxBound ]
@@ -242,7 +241,7 @@ pathAction flags@NixStyleFlags{extraFlags = pathFlags'} cliTargetStrings globalF
242241 when (buildSettingDryRun (buildSettings baseCtx)) $
243242 dieWithException verbosity CmdPathCommandDoesn'tSupportDryRun
244243
245- (compiler, _, progDb) <-
244+ (compiler, _, progDb) <-
246245 runRebuild (distProjectRootDirectory . distDirLayout $ baseCtx) $
247246 configureCompiler verbosity (distDirLayout baseCtx) (projectConfig baseCtx)
248247
0 commit comments