Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
e982476c
Commit
e982476c
authored
May 16, 2016
by
Andrey Mokhov
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Clean up imports (improve consistency)
parent
d1780e49
Changes
45
Hide whitespace changes
Inline
Side-by-side
Showing
45 changed files
with
94 additions
and
97 deletions
+94
-97
src/Builder.hs
src/Builder.hs
+1
-1
src/CmdLineFlag.hs
src/CmdLineFlag.hs
+6
-8
src/Environment.hs
src/Environment.hs
+2
-1
src/Expression.hs
src/Expression.hs
+1
-1
src/Oracles/Config.hs
src/Oracles/Config.hs
+2
-1
src/Package.hs
src/Package.hs
+3
-2
src/Rules/Cabal.hs
src/Rules/Cabal.hs
+2
-1
src/Rules/Configure.hs
src/Rules/Configure.hs
+2
-2
src/Rules/Generate.hs
src/Rules/Generate.hs
+2
-2
src/Rules/Gmp.hs
src/Rules/Gmp.hs
+1
-1
src/Rules/Perl.hs
src/Rules/Perl.hs
+1
-1
src/Rules/Selftest.hs
src/Rules/Selftest.hs
+2
-2
src/Rules/Test.hs
src/Rules/Test.hs
+1
-1
src/Settings/Builders/Alex.hs
src/Settings/Builders/Alex.hs
+1
-1
src/Settings/Builders/Ar.hs
src/Settings/Builders/Ar.hs
+2
-2
src/Settings/Builders/Cc.hs
src/Settings/Builders/Cc.hs
+3
-3
src/Settings/Builders/Common.hs
src/Settings/Builders/Common.hs
+1
-1
src/Settings/Builders/Configure.hs
src/Settings/Builders/Configure.hs
+1
-1
src/Settings/Builders/DeriveConstants.hs
src/Settings/Builders/DeriveConstants.hs
+1
-1
src/Settings/Builders/GenPrimopCode.hs
src/Settings/Builders/GenPrimopCode.hs
+1
-1
src/Settings/Builders/Ghc.hs
src/Settings/Builders/Ghc.hs
+3
-5
src/Settings/Builders/GhcCabal.hs
src/Settings/Builders/GhcCabal.hs
+3
-6
src/Settings/Builders/Haddock.hs
src/Settings/Builders/Haddock.hs
+0
-1
src/Settings/Builders/Happy.hs
src/Settings/Builders/Happy.hs
+1
-1
src/Settings/Builders/HsCpp.hs
src/Settings/Builders/HsCpp.hs
+1
-1
src/Settings/Builders/Hsc2Hs.hs
src/Settings/Builders/Hsc2Hs.hs
+2
-2
src/Settings/Builders/Make.hs
src/Settings/Builders/Make.hs
+11
-11
src/Settings/Builders/Tar.hs
src/Settings/Builders/Tar.hs
+1
-1
src/Settings/Flavours/Quick.hs
src/Settings/Flavours/Quick.hs
+1
-1
src/Settings/Packages/Base.hs
src/Settings/Packages/Base.hs
+2
-2
src/Settings/Packages/Compiler.hs
src/Settings/Packages/Compiler.hs
+3
-3
src/Settings/Packages/Directory.hs
src/Settings/Packages/Directory.hs
+2
-2
src/Settings/Packages/Ghc.hs
src/Settings/Packages/Ghc.hs
+2
-2
src/Settings/Packages/GhcCabal.hs
src/Settings/Packages/GhcCabal.hs
+1
-1
src/Settings/Packages/GhcPrim.hs
src/Settings/Packages/GhcPrim.hs
+2
-2
src/Settings/Packages/Haddock.hs
src/Settings/Packages/Haddock.hs
+2
-2
src/Settings/Packages/Hp2ps.hs
src/Settings/Packages/Hp2ps.hs
+2
-2
src/Settings/Packages/IntegerGmp.hs
src/Settings/Packages/IntegerGmp.hs
+3
-3
src/Settings/Packages/IservBin.hs
src/Settings/Packages/IservBin.hs
+3
-4
src/Settings/Packages/Rts.hs
src/Settings/Packages/Rts.hs
+2
-2
src/Settings/Packages/RunGhc.hs
src/Settings/Packages/RunGhc.hs
+2
-2
src/Settings/Packages/Touchy.hs
src/Settings/Packages/Touchy.hs
+2
-2
src/Settings/Packages/Unlit.hs
src/Settings/Packages/Unlit.hs
+2
-2
src/Settings/Ways.hs
src/Settings/Ways.hs
+3
-2
src/Way.hs
src/Way.hs
+2
-1
No files found.
src/Builder.hs
View file @
e982476c
...
...
@@ -5,11 +5,11 @@ module Builder (
)
where
import
Control.Monad.Trans.Reader
import
GHC.Generics
(
Generic
)
import
Base
import
Context
import
GHC
import
GHC.Generics
(
Generic
)
import
Oracles.Config
import
Oracles.LookupInPath
import
Oracles.WindowsPath
...
...
src/CmdLineFlag.hs
View file @
e982476c
...
...
@@ -3,16 +3,11 @@ module CmdLineFlag (
cmdProgressInfo
,
ProgressInfo
(
..
),
cmdSkipConfigure
,
cmdSplitObjects
)
where
import
Data.IORef
import
Data.List.Extra
import
System.Console.GetOpt
import
Data.IORef
import
System.IO.Unsafe
(
unsafePerformIO
)
-- Command line flags
data
ProgressInfo
=
None
|
Brief
|
Normal
|
Unicorn
deriving
(
Eq
,
Show
)
data
Flavour
=
Default
|
Quick
deriving
(
Eq
,
Show
)
-- | 'CmdLineFlag.Untracked' is a collection of flags that can be passed via the
-- command line. These flags are not tracked, that is they do not force any
-- build rules to be rurun.
...
...
@@ -24,6 +19,9 @@ data Untracked = Untracked
,
splitObjects
::
Bool
}
deriving
(
Eq
,
Show
)
data
ProgressInfo
=
None
|
Brief
|
Normal
|
Unicorn
deriving
(
Eq
,
Show
)
data
Flavour
=
Default
|
Quick
deriving
(
Eq
,
Show
)
-- | Default values for 'CmdLineFlag.Untracked'.
defaultUntracked
::
Untracked
defaultUntracked
=
Untracked
...
...
@@ -79,7 +77,7 @@ cmdFlags =
,
Option
[]
[
"split-objects"
]
(
NoArg
readSplitObjects
)
"Generate split objects (requires a full clean rebuild)."
]
-- TODO: Avoid unsafePerformIO by using shakeExtra
(awaiting Shake's release)
-- TODO: Avoid unsafePerformIO by using shakeExtra
.
{-# NOINLINE cmdLineFlags #-}
cmdLineFlags
::
IORef
Untracked
cmdLineFlags
=
unsafePerformIO
$
newIORef
defaultUntracked
...
...
@@ -87,7 +85,7 @@ cmdLineFlags = unsafePerformIO $ newIORef defaultUntracked
putCmdLineFlags
::
[
Untracked
->
Untracked
]
->
IO
()
putCmdLineFlags
flags
=
modifyIORef
cmdLineFlags
(
\
f
->
foldl
(
flip
id
)
f
flags
)
-- TODO: Avoid unsafePerformIO by using shakeExtra
(awaiting Shake's release)
-- TODO: Avoid unsafePerformIO by using shakeExtra
.
{-# NOINLINE getCmdLineFlags #-}
getCmdLineFlags
::
Untracked
getCmdLineFlags
=
unsafePerformIO
$
readIORef
cmdLineFlags
...
...
src/Environment.hs
View file @
e982476c
module
Environment
(
setupEnvironment
)
where
import
Base
import
System.Environment
import
Base
-- | The build system invokes many external builders whose behaviour is
-- influenced by the environment variables. We need to modify some of them
-- for better robustness of the build system.
...
...
src/Expression.hs
View file @
e982476c
...
...
@@ -30,9 +30,9 @@ import Control.Monad.Trans.Reader
import
Data.Monoid
import
Base
import
Builder
import
Context
import
Package
import
Builder
import
Stage
import
Target
import
Way
...
...
src/Oracles/Config.hs
View file @
e982476c
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module
Oracles.Config
(
askConfig
,
askConfigWithDefault
,
configOracle
)
where
import
Base
import
qualified
Data.HashMap.Strict
as
Map
import
Development.Shake.Config
import
Base
newtype
ConfigKey
=
ConfigKey
String
deriving
(
Show
,
Typeable
,
Eq
,
Hashable
,
Binary
,
NFData
)
...
...
src/Package.hs
View file @
e982476c
...
...
@@ -10,9 +10,10 @@ module Package (
setPath
,
topLevel
,
library
,
utility
,
setType
,
isLibrary
,
isProgram
)
where
import
Base
import
GHC.Generics
(
Generic
)
import
Data.String
import
GHC.Generics
(
Generic
)
import
Base
-- | The name of a Cabal package
newtype
PackageName
=
PackageName
{
fromPackageName
::
String
}
...
...
src/Rules/Cabal.hs
View file @
e982476c
module
Rules.Cabal
(
cabalRules
)
where
import
Base
import
Data.Version
import
Distribution.Package
as
DP
import
Distribution.PackageDescription
import
Distribution.PackageDescription.Parse
import
Distribution.Verbosity
import
Base
import
Expression
import
GHC
import
Settings
...
...
src/Rules/Configure.hs
View file @
e982476c
...
...
@@ -4,9 +4,9 @@ import qualified System.Info as System
import
Base
import
Builder
import
CmdLineFlag
(
cmdSkipConfigure
)
import
CmdLineFlag
import
Context
import
GHC
(
compiler
)
import
GHC
import
Rules.Actions
import
Rules.Generators.GhcAutoconfH
import
Stage
...
...
src/Rules/Generate.hs
View file @
e982476c
...
...
@@ -9,6 +9,8 @@ import Base
import
Context
hiding
(
stage
)
import
Expression
import
GHC
import
Oracles.ModuleFiles
import
Rules.Actions
import
Rules.Generators.ConfigHs
import
Rules.Generators.GhcAutoconfH
import
Rules.Generators.GhcBootPlatformH
...
...
@@ -16,8 +18,6 @@ import Rules.Generators.GhcPlatformH
import
Rules.Generators.GhcSplit
import
Rules.Generators.GhcVersionH
import
Rules.Generators.VersionHs
import
Oracles.ModuleFiles
import
Rules.Actions
import
Rules.Libffi
import
Settings
import
Target
hiding
(
builder
,
context
)
...
...
src/Rules/Gmp.hs
View file @
e982476c
...
...
@@ -7,8 +7,8 @@ import GHC
import
Oracles.Config.Setting
import
Rules.Actions
import
Settings.Packages.IntegerGmp
import
Settings.User
import
Settings.Paths
import
Settings.User
import
Target
gmpBase
::
FilePath
...
...
src/Rules/Perl.hs
View file @
e982476c
...
...
@@ -2,7 +2,7 @@ module Rules.Perl (perlScriptRules) where
import
Base
import
Expression
import
Rules.Actions
(
runBuilder
)
import
Rules.Actions
-- TODO: get rid of perl scripts
-- | Generate perl scripts the build system requires, such as @ghc-split@,
...
...
src/Rules/Selftest.hs
View file @
e982476c
...
...
@@ -6,8 +6,8 @@ import Development.Shake
import
Test.QuickCheck
import
Base
import
Oracles.ModuleFiles
(
decodeModule
,
encodeModule
)
import
Settings.Builders.Ar
(
chunksOfSize
)
import
Oracles.ModuleFiles
import
Settings.Builders.Ar
import
Way
instance
Arbitrary
Way
where
...
...
src/Rules/Test.hs
View file @
e982476c
...
...
@@ -3,7 +3,7 @@ module Rules.Test (testRules) where
import
Base
import
Builder
import
Expression
import
GHC
(
compiler
,
rts
,
libffi
)
import
GHC
import
Oracles.Config.Flag
import
Oracles.Config.Setting
import
Oracles.WindowsPath
...
...
src/Settings/Builders/Alex.hs
View file @
e982476c
module
Settings.Builders.Alex
(
alexBuilderArgs
)
where
import
Expression
import
Predicates
(
builder
)
import
Predicates
alexBuilderArgs
::
Args
alexBuilderArgs
=
builder
Alex
?
mconcat
[
arg
"-g"
...
...
src/Settings/Builders/Ar.hs
View file @
e982476c
...
...
@@ -4,9 +4,9 @@ import Base
import
Expression
import
Oracles.Config.Flag
import
Oracles.Config.Setting
import
Predicates
(
builder
)
import
Predicates
-- | Default arguments for 'Ar' builder
-- | Default arguments for 'Ar' builder
.
arBuilderArgs
::
Args
arBuilderArgs
=
builder
Ar
?
mconcat
[
arg
"q"
,
arg
=<<
getOutput
...
...
src/Settings/Builders/Cc.hs
View file @
e982476c
module
Settings.Builders.Cc
(
ccBuilderArgs
)
where
import
Development.Shake.FilePath
import
Base
import
Expression
import
Oracles.Config.Setting
import
Oracles.PackageData
import
Predicates
(
builder
)
import
Predicates
import
Settings
import
Settings.Builders.Common
(
cIncludeArgs
)
import
Settings.Builders.Common
-- TODO: handle custom $1_$2_MKDEPENDC_OPTS and
ccBuilderArgs
::
Args
...
...
src/Settings/Builders/Common.hs
View file @
e982476c
...
...
@@ -11,7 +11,7 @@ import Oracles.PackageData
import
Settings
includes
::
[
FilePath
]
includes
=
[
"includes"
,
"includes/dist-derivedconstants/header"
]
includes
=
[
"includes"
,
"includes/dist-derivedconstants/header"
]
includesArgs
::
Args
includesArgs
=
append
$
map
(
"-I"
++
)
includes
...
...
src/Settings/Builders/Configure.hs
View file @
e982476c
...
...
@@ -3,7 +3,7 @@ module Settings.Builders.Configure (configureBuilderArgs) where
import
Base
import
Expression
import
Oracles.Config.Setting
import
Predicates
(
builder
)
import
Predicates
import
Settings
configureBuilderArgs
::
Args
...
...
src/Settings/Builders/DeriveConstants.hs
View file @
e982476c
...
...
@@ -4,7 +4,7 @@ import Base
import
Expression
import
Oracles.Config.Flag
import
Oracles.Config.Setting
import
Predicates
(
builder
,
output
)
import
Predicates
import
Settings.Builders.Common
-- TODO: do we need to support `includes_CC_OPTS += -DDYNAMIC_BY_DEFAULT`?
...
...
src/Settings/Builders/GenPrimopCode.hs
View file @
e982476c
module
Settings.Builders.GenPrimopCode
(
genPrimopCodeBuilderArgs
)
where
import
Expression
import
Predicates
(
builder
,
output
)
import
Predicates
-- Stdin/stdout are handled in a special way. See Rules/Actions.hs.
genPrimopCodeBuilderArgs
::
Args
...
...
src/Settings/Builders/Ghc.hs
View file @
e982476c
module
Settings.Builders.Ghc
(
ghcBuilderArgs
,
ghcMBuilderArgs
,
commonGhcArgs
)
where
module
Settings.Builders.Ghc
(
ghcBuilderArgs
,
ghcMBuilderArgs
,
commonGhcArgs
)
where
import
Control.Monad.Trans.Reader
...
...
@@ -12,8 +10,8 @@ import Oracles.Config.Setting
import
Oracles.PackageData
import
Predicates
hiding
(
way
,
stage
)
import
Settings
import
Settings.Builders.
GhcCabal
(
bootPackageDbArgs
)
import
Settings.Builders.
Common
(
cIncludeArgs
)
import
Settings.Builders.
Common
import
Settings.Builders.
GhcCabal
-- TODO: add support for -dyno
-- $1/$2/build/%.$$($3_o-bootsuf) : $1/$4/%.hs-boot
...
...
src/Settings/Builders/GhcCabal.hs
View file @
e982476c
...
...
@@ -5,14 +5,11 @@ module Settings.Builders.GhcCabal (
)
where
import
Base
import
Oracles.Config.Setting
import
Oracles.Config.Flag
import
GHC
import
Package
import
Way
import
Builder
import
Stage
import
Expression
import
GHC
import
Oracles.Config.Flag
import
Oracles.Config.Setting
import
Predicates
hiding
(
stage
)
import
Settings
import
Settings.Builders.Common
...
...
src/Settings/Builders/Haddock.hs
View file @
e982476c
module
Settings.Builders.Haddock
(
haddockBuilderArgs
)
where
import
Development.Shake.FilePath
import
Base
import
GHC
import
Package
...
...
src/Settings/Builders/Happy.hs
View file @
e982476c
module
Settings.Builders.Happy
(
happyBuilderArgs
)
where
import
Expression
import
Predicates
(
builder
)
import
Predicates
happyBuilderArgs
::
Args
happyBuilderArgs
=
builder
Happy
?
mconcat
[
arg
"-agc"
...
...
src/Settings/Builders/HsCpp.hs
View file @
e982476c
...
...
@@ -3,7 +3,7 @@ module Settings.Builders.HsCpp (hsCppBuilderArgs) where
import
Expression
import
GHC
import
Oracles.Config.Setting
import
Predicates
(
builder
)
import
Predicates
import
Settings.Builders.GhcCabal
import
Settings.Paths
...
...
src/Settings/Builders/Hsc2Hs.hs
View file @
e982476c
module
Settings.Builders.Hsc2Hs
(
hsc2hsBuilderArgs
)
where
import
Control.Monad.Trans.Class
import
Control.Monad.Extra
import
Control.Monad.Trans.Class
import
Base
import
Expression
import
Oracles.Config.Flag
import
Oracles.Config.Setting
import
Oracles.PackageData
import
Predicates
(
builder
,
stage0
,
notStage0
)
import
Predicates
import
Settings
import
Settings.Builders.Common
...
...
src/Settings/Builders/Make.hs
View file @
e982476c
module
Settings.Builders.Make
(
makeBuilderArgs
)
where
import
Expression
import
Predicates
(
builder
)
import
Settings
makeBuilderArgs
::
Args
makeBuilderArgs
=
mconcat
[
builder
(
Make
"testsuite/tests"
)
?
arg
"fast"
,
builder
(
Make
gmpBuildPath
)
?
arg
"MAKEFLAGS="
,
builder
(
Make
libffiBuildPath
)
?
append
[
"MAKEFLAGS="
,
"install"
]
]
module
Settings.Builders.Make
(
makeBuilderArgs
)
where
import
Expression
import
Predicates
import
Settings
makeBuilderArgs
::
Args
makeBuilderArgs
=
mconcat
[
builder
(
Make
"testsuite/tests"
)
?
arg
"fast"
,
builder
(
Make
gmpBuildPath
)
?
arg
"MAKEFLAGS="
,
builder
(
Make
libffiBuildPath
)
?
append
[
"MAKEFLAGS="
,
"install"
]
]
src/Settings/Builders/Tar.hs
View file @
e982476c
...
...
@@ -2,7 +2,7 @@ module Settings.Builders.Tar (tarBuilderArgs) where
import
Base
import
Expression
import
Predicates
(
builder
)
import
Predicates
tarBuilderArgs
::
Args
tarBuilderArgs
=
builder
Tar
?
do
...
...
src/Settings/Flavours/Quick.hs
View file @
e982476c
module
Settings.Flavours.Quick
(
quickFlavourArgs
,
quickFlavourWays
)
where
import
Expression
import
Predicates
(
builder
)
import
Predicates
quickFlavourArgs
::
Args
quickFlavourArgs
=
builder
Ghc
?
arg
"-O0"
...
...
src/Settings/Packages/Base.hs
View file @
e982476c
...
...
@@ -2,8 +2,8 @@ module Settings.Packages.Base (basePackageArgs) where
import
Base
import
Expression
import
GHC
(
base
)
import
Predicates
(
builder
,
package
)
import
GHC
import
Predicates
import
Settings
basePackageArgs
::
Args
...
...
src/Settings/Packages/Compiler.hs
View file @
e982476c
...
...
@@ -2,10 +2,10 @@ module Settings.Packages.Compiler (compilerPackageArgs) where
import
Base
import
Expression
import
GHC
(
compiler
)
import
Oracles.Config.Setting
import
GHC
import
Oracles.Config.Flag
import
Predicates
(
builder
,
package
,
notStage0
)
import
Oracles.Config.Setting
import
Predicates
import
Settings
compilerPackageArgs
::
Args
...
...
src/Settings/Packages/Directory.hs
View file @
e982476c
module
Settings.Packages.Directory
(
directoryPackageArgs
)
where
import
Expression
import
GHC
(
directory
)
import
Predicates
(
builder
,
package
)
import
GHC
import
Predicates
-- TODO: I had to define symbol __GLASGOW_HASKELL__ as otherwise directory.c is
-- effectively empty. I presume it was expected that GHC will be used for
...
...
src/Settings/Packages/Ghc.hs
View file @
e982476c
module
Settings.Packages.Ghc
(
ghcPackageArgs
)
where
import
Expression
import
GHC
(
ghc
,
compiler
)
import
GHC
import
Oracles.Config.Setting
import
Predicates
(
builder
,
package
,
notStage0
)
import
Predicates
import
Settings.Paths
ghcPackageArgs
::
Args
...
...
src/Settings/Packages/GhcCabal.hs
View file @
e982476c
...
...
@@ -4,7 +4,7 @@ import Base
import
Expression
import
GHC
import
Oracles.Config.Setting
import
Predicates
(
builder
,
package
,
stage0
)
import
Predicates
import
Settings
ghcCabalPackageArgs
::
Args
...
...
src/Settings/Packages/GhcPrim.hs
View file @
e982476c
module
Settings.Packages.GhcPrim
(
ghcPrimPackageArgs
)
where
import
Expression
import
GHC
(
ghcPrim
)
import
Predicates
(
builder
,
package
)
import
GHC
import
Predicates
ghcPrimPackageArgs
::
Args
ghcPrimPackageArgs
=
package
ghcPrim
?
...
...
src/Settings/Packages/Haddock.hs
View file @
e982476c
module
Settings.Packages.Haddock
(
haddockPackageArgs
)
where
import
Expression
import
GHC
(
haddock
)
import
Predicates
(
builder
,
package
)
import
GHC
import
Predicates
haddockPackageArgs
::
Args
haddockPackageArgs
=
package
haddock
?
...
...
src/Settings/Packages/Hp2ps.hs
View file @
e982476c
...
...
@@ -2,8 +2,8 @@ module Settings.Packages.Hp2ps (hp2psPackageArgs) where
import
Base
import
Expression
import
GHC
(
hp2ps
)
import
Predicates
(
builder
,
package
)
import
GHC
import
Predicates
import
Settings
hp2psPackageArgs
::
Args
...
...
src/Settings/Packages/IntegerGmp.hs
View file @
e982476c
...
...
@@ -2,10 +2,10 @@ module Settings.Packages.IntegerGmp (integerGmpPackageArgs, gmpBuildPath) where
import
Base
import
Expression
import
GHC
(
integerGmp
)
import
Predicates
(
builder
,
package
)
import
Settings.Paths
import
GHC
import
Oracles.Config.Setting
import
Predicates
import
Settings.Paths
-- TODO: move build artefacts to buildRootPath, see #113
-- TODO: Is this needed?
...
...
src/Settings/Packages/IservBin.hs
View file @
e982476c
module
Settings.Packages.IservBin
(
iservBinPackageArgs
)
where
import
Expression
import
GHC
(
iservBin
)
import
Predicates
(
builder
,
package
)
import
GHC
import
Predicates
iservBinPackageArgs
::
Args
iservBinPackageArgs
=
package
iservBin
?
do
mconcat
[
builder
Ghc
?
arg
"-no-hs-main"
]
iservBinPackageArgs
=
package
iservBin
?
builder
Ghc
?
arg
"-no-hs-main"
src/Settings/Packages/Rts.hs
View file @
e982476c
...
...
@@ -4,10 +4,10 @@ module Settings.Packages.Rts (
import
Base
import
Expression
import
GHC
(
rts
,
rtsContext
)
import
GHC
import
Oracles.Config.Flag
import
Oracles.Config.Setting
import
Predicates
(
builder
,
package
,
input
)
import
Predicates
import
Settings
import
Settings.Builders.Common
...
...
src/Settings/Packages/RunGhc.hs
View file @
e982476c
module
Settings.Packages.RunGhc
(
runGhcPackageArgs
)
where
import
Expression
import
GHC
(
runGhc
)
import
GHC
import
Oracles.Config.Setting
import
Predicates
(
builder
,
input
,
package
)
import
Predicates
runGhcPackageArgs
::
Args
runGhcPackageArgs
=
package
runGhc
?
do
...
...
src/Settings/Packages/Touchy.hs
View file @
e982476c
...
...
@@ -2,8 +2,8 @@ module Settings.Packages.Touchy (touchyPackageArgs) where
import
Base
import
Expression
import
GHC
(
touchy
)
import
Predicates
(
builder
,
package
)
import
GHC
import
Predicates
import
Settings
touchyPackageArgs
::
Args
...
...
src/Settings/Packages/Unlit.hs
View file @
e982476c
...
...
@@ -2,8 +2,8 @@ module Settings.Packages.Unlit (unlitPackageArgs) where
import
Base
import
Expression
import
GHC
(
unlit
)
import
Predicates
(
builder
,
package
)
import
GHC
import
Predicates
import
Settings
unlitPackageArgs
::
Args
...
...
src/Settings/Ways.hs
View file @
e982476c
module
Settings.Ways
(
getLibraryWays
,
getRtsWays
)
where
import
CmdLineFlag
import
Base
import
CmdLineFlag
import
Expression
import
Oracles.Config.Flag
import
Predicates
import
Settings.Flavours.Quick
import
Settings.User
-- | Combine default ways with user modifications
-- | Combine default
library
ways with user modifications
.
getLibraryWays
::
Expr
[
Way
]
getLibraryWays
=
fromDiffExpr
$
mconcat
[
defaultLibraryWays
,
userLibraryWays
,
flavourLibraryWays
]
-- | Combine default RTS ways with user modifications.
getRtsWays
::
Expr
[
Way
]
getRtsWays
=
fromDiffExpr
$
defaultRtsWays
<>
userRtsWays
...
...
src/Way.hs
View file @
e982476c
...
...
@@ -9,9 +9,10 @@ module Way (
wayPrefix
,
waySuffix
,
hisuf
,
osuf
,
hcsuf
,
obootsuf
,
hibootsuf
,
ssuf
,
libsuf
)
where
import
Base
hiding
(
unit
)
import
Data.IntSet
(
IntSet
)
import
qualified
Data.IntSet
as
Set
import
Base
hiding
(
unit
)
import
Oracles.Config.Setting
-- Note: order of constructors is important for compatibility with the old build
...
...
Write
Preview