blob: 76ee4a70280abce25fbada699d39ea203634a4b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
module Rules.Lint
( lintRules
) where
import Base
import Settings.Builders.Common
import System.Directory (findExecutable)
lintRules :: Rules ()
lintRules = do
"lint:base" ~> lint base
"lint:compiler" ~> lint compiler
lint :: Action () -> Action ()
lint lintAction = do
isHlintPresent <- isJust <$> (liftIO $ findExecutable "hlint")
if isHlintPresent
then do
putBuild "| Running the linter…"
lintAction
putSuccess "| Done."
else
putFailure "| Please make sure you have the `hlint` executable in your $PATH"
base :: Action ()
base = do
topDir <- topDirectory
buildDir <- buildRoot
let stage1Lib = topDir </> buildDir </> "stage1/lib"
let machDeps = topDir </> "includes/MachDeps.h"
let hsBaseConfig = topDir </> buildDir </> "stage1/libraries/base/build/include/HsBaseConfig.h"
let ghcautoconf = stage1Lib </> "ghcautoconf.h"
let ghcplatform = stage1Lib </> "ghcplatform.h"
need [ghcautoconf, ghcplatform, machDeps, hsBaseConfig]
let include0 = topDir </> "includes"
let include1 = topDir </> "libraries/base/include"
let include2 = stage1Lib
let include3 = topDir </> buildDir </> "stage1/libraries/base/build/include"
let hlintYaml = topDir </> "libraries/base/.hlint.yaml"
hostArch <- (<> "_HOST_ARCH") <$> setting HostArch
let cmdLine = "hlint -j --cpp-define " <> hostArch <> " --cpp-include=" <> include0 <>
" --cpp-include=" <> include1 <>
" --cpp-include=" <> include2 <>
" --cpp-include=" <> include3 <>
" -h " <> hlintYaml <> " libraries/base"
putBuild $ "| " <> cmdLine
cmd_ cmdLine
compiler :: Action ()
compiler = do
topDir <- topDirectory
buildDir <- buildRoot
let stage1Lib = topDir </> buildDir </> "stage1/lib"
let stage1Compiler = topDir </> buildDir </> "stage1/compiler/build"
let machDeps = topDir </> "includes/MachDeps.h"
let hsVersions = topDir </> "compiler/HsVersions.h"
let compilerDir = topDir </> "compiler"
let ghcautoconf = stage1Lib </> "ghcautoconf.h"
let ghcplatform = stage1Lib </> "ghcplatform.h"
let pmv = stage1Compiler </> "primop-vector-uniques.hs-incl"
need [ghcautoconf, ghcplatform, machDeps, hsVersions, pmv]
let include0 = topDir </> "includes"
let include1 = stage1Lib
let hlintYaml = topDir </> "compiler/.hlint.yaml"
hostArch <- (<> "_HOST_ARCH") <$> setting HostArch
let cmdLine = "hlint -j --cpp-define " <> hostArch <>
" --cpp-include=" <> include0 <>
" --cpp-include=" <> include1 <>
" --cpp-include=" <> compilerDir <>
" --cpp-include=" <> ghcplatform <>
" --cpp-include=" <> stage1Compiler <>
" -h " <> hlintYaml <> " compiler"
putBuild $ "| " <> cmdLine
cmd_ cmdLine
|
