mirror of
https://github.com/haskell/haskell-ide-engine.git
synced 2024-10-26 11:18:42 +03:00
apply brittany reformat
This commit is contained in:
parent
9b35194558
commit
71cbab17ec
@ -47,13 +47,13 @@ data BuildableVersions = BuildableVersions
|
||||
}
|
||||
|
||||
getDefaultBuildSystemVersions :: BuildableVersions -> [VersionNumber]
|
||||
getDefaultBuildSystemVersions BuildableVersions{..}
|
||||
getDefaultBuildSystemVersions BuildableVersions {..}
|
||||
| isRunFromStack = stackVersions
|
||||
| isRunFromCabal = cabalVersions
|
||||
| otherwise = error $ "unknown build system: " ++ buildSystem
|
||||
| otherwise = error $ "unknown build system: " ++ buildSystem
|
||||
|
||||
helpMessage :: BuildableVersions -> Action ()
|
||||
helpMessage versions@BuildableVersions{..} = do
|
||||
helpMessage versions@BuildableVersions {..} = do
|
||||
printUsage
|
||||
out ""
|
||||
out "Targets:"
|
||||
@ -63,7 +63,7 @@ helpMessage versions@BuildableVersions{..} = do
|
||||
spaces = space targets
|
||||
-- All targets the shake file supports
|
||||
targets :: [(String, String)]
|
||||
targets = intercalate
|
||||
targets = intercalate
|
||||
[emptyTarget]
|
||||
[ generalTargets
|
||||
, defaultTargets
|
||||
@ -73,30 +73,24 @@ helpMessage versions@BuildableVersions{..} = do
|
||||
]
|
||||
|
||||
-- All targets with their respective help message.
|
||||
generalTargets =
|
||||
[ helpTarget
|
||||
]
|
||||
generalTargets = [helpTarget]
|
||||
|
||||
defaultTargets =
|
||||
[ buildTarget
|
||||
, buildAllTarget
|
||||
, buildDataTarget
|
||||
]
|
||||
++ map hieTarget (getDefaultBuildSystemVersions versions)
|
||||
defaultTargets = [buildTarget, buildAllTarget, buildDataTarget]
|
||||
++ map hieTarget (getDefaultBuildSystemVersions versions)
|
||||
|
||||
stackTargets =
|
||||
[ stackTarget buildTarget
|
||||
, stackTarget buildAllTarget
|
||||
, stackTarget buildDataTarget
|
||||
]
|
||||
, stackTarget buildAllTarget
|
||||
, stackTarget buildDataTarget
|
||||
]
|
||||
++ map (stackTarget . hieTarget) stackVersions
|
||||
|
||||
cabalTargets =
|
||||
[ cabalGhcsTarget
|
||||
, cabalTarget buildTarget
|
||||
, cabalTarget buildAllTarget
|
||||
, cabalTarget buildDataTarget
|
||||
]
|
||||
, cabalTarget buildTarget
|
||||
, cabalTarget buildAllTarget
|
||||
, cabalTarget buildDataTarget
|
||||
]
|
||||
++ map (cabalTarget . hieTarget) cabalVersions
|
||||
|
||||
-- | Empty target. Purpose is to introduce a newline between the targets
|
||||
@ -115,13 +109,10 @@ cabalTarget = targetWithBuildSystem "cabal"
|
||||
|
||||
hieTarget :: String -> TargetDescription
|
||||
hieTarget version =
|
||||
( "hie-" ++ version
|
||||
, "Builds hie for GHC version " ++ version
|
||||
)
|
||||
("hie-" ++ version, "Builds hie for GHC version " ++ version)
|
||||
|
||||
buildTarget :: TargetDescription
|
||||
buildTarget =
|
||||
("build", "Builds hie with all installed GHCs")
|
||||
buildTarget = ("build", "Builds hie with all installed GHCs")
|
||||
|
||||
buildDataTarget :: TargetDescription
|
||||
buildDataTarget =
|
||||
@ -129,9 +120,7 @@ buildDataTarget =
|
||||
|
||||
buildAllTarget :: TargetDescription
|
||||
buildAllTarget =
|
||||
( "build-all"
|
||||
, "Builds hie for all installed GHC versions and the data files"
|
||||
)
|
||||
("build-all", "Builds hie for all installed GHC versions and the data files")
|
||||
|
||||
-- speical targets
|
||||
|
||||
|
@ -9,7 +9,7 @@ import Data.List ( dropWhileEnd
|
||||
import Data.Char ( isSpace )
|
||||
|
||||
out :: MonadIO m => String -> m ()
|
||||
out = liftIO . putStrLn
|
||||
out = liftIO . putStrLn
|
||||
|
||||
out' :: MonadIO m => String -> m ()
|
||||
out' = out . (" " ++)
|
||||
|
Loading…
Reference in New Issue
Block a user