Skip to content

Commit c0f2629

Browse files
committed
Satisfy fourmolu
1 parent 612c9c4 commit c0f2629

4 files changed

Lines changed: 11 additions & 7 deletions

File tree

Cabal/src/Distribution/Simple/Test/LibV09.hs

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -159,10 +159,11 @@ runTest verbHandles pkg_descr lbi clbi hpcMarkupInfo flags suite = do
159159
-- readable test log
160160
suiteLog <-
161161
( \s ->
162-
(\l -> l{logFile = finalLogName l})
163-
. fromMaybe (error $ "panic! read @TestSuiteLog " ++ show s)
164-
$ readMaybe s -- TODO: eradicateNoParse
165-
) <$> readFile tempLog
162+
(\l -> l{logFile = finalLogName l})
163+
. fromMaybe (error $ "panic! read @TestSuiteLog " ++ show s)
164+
$ readMaybe s -- TODO: eradicateNoParse
165+
)
166+
<$> readFile tempLog
166167

167168
-- Write summary notice to log file indicating start of test suite
168169
appendFile (logFile suiteLog) $ summarizeSuiteStart testName'

cabal-install/src/Distribution/Client/InstallSymlink.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -147,7 +147,8 @@ symlinkBinaries
147147
publicBinDir <- canonicalizePath symlinkBinDir
148148
-- TODO: do we want to do this here? :
149149
-- createDirectoryIfMissing True publicBinDir
150-
catMaybes <$> sequenceA
150+
catMaybes
151+
<$> sequenceA
151152
[ do
152153
privateBinDir <- pkgBinDir pkg ipid
153154
ok <-

cabal-install/src/Distribution/Client/ProjectOrchestration.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -458,7 +458,8 @@ runProjectBuildPhase
458458
verbosity
459459
ProjectBaseContext{..}
460460
ProjectBuildContext{..} =
461-
Map.union (previousBuildOutcomes pkgsBuildStatus) <$> rebuildTargets
461+
Map.union (previousBuildOutcomes pkgsBuildStatus)
462+
<$> rebuildTargets
462463
verbosity
463464
projectConfig
464465
distDirLayout

cabal-install/src/Distribution/Client/ProjectPlanOutput.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -855,7 +855,8 @@ writePlanGhcEnvironment
855855
| compilerFlavor compiler == GHC
856856
, supportsPkgEnvFiles (getImplInfo compiler) =
857857
-- TODO: check ghcjs compat
858-
Just <$> writeGhcEnvironmentFile
858+
Just
859+
<$> writeGhcEnvironmentFile
859860
path
860861
platform
861862
(compilerVersion compiler)

0 commit comments

Comments
 (0)