Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
M
mu-client-ghc
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
3
Issues
3
List
Board
Labels
Milestones
Merge Requests
1
Merge Requests
1
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
mu
mu-client-ghc
Commits
c0bd4b23
Commit
c0bd4b23
authored
May 30, 2017
by
Pavel Zakopaylo
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fixed source-module path
parent
c145fadb
Pipeline
#517
canceled with stages
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
Main.hs
app/Main.hs
+4
-4
No files found.
app/Main.hs
View file @
c0bd4b23
...
...
@@ -71,7 +71,7 @@ compileLibraryFiles (packageKey, files, extraFlags) = do
libconfig
=
compilerConfig
{
cfgGhcFlags
=
[
"-this-unit-id"
,
packageKey
,
"-ddump-stg"
,
"-ddump-to-file"
,
"-I/home/pavel/Development/mu/mu-client-ghc/libraries/base/include"
,
"-I/home/pavel/Development/mu/mu-client-ghc/libraries/base/include
/
"
,
"-I/Users/nathan/projects/microvm/anuhc/libraries/include/"
]
++
extraFlags
}
...
...
@@ -102,13 +102,13 @@ doResults liveObjectNames (defns, topClosures, mainFunction) = do
-- TODO: fix this.
libraryFiles
::
[(
String
,
[
FilePath
],
[
String
])]
libraryFiles
=
[
(
"ghc-prim"
,
prefix
ghcPrimFiles
,
[]
)
,
(
"base"
,
prefix
baseFiles
,
[
"-I/home/pavel/Development/mu/mu-client-ghc/libraries/base/include"
,
"-i/home/pavel/Development/mu/mu-client-ghc/libraries/base"
])
,
(
"base"
,
prefix
baseFiles
,
[
"-I/home/pavel/Development/mu/mu-client-ghc/libraries/base/include
/
"
,
"-i/home/pavel/Development/mu/mu-client-ghc/libraries/base"
])
,
(
"base"
,
prefix
baseFiles
,
[
"-I/Users/nathan/projects/microvm/anuhc/libraries/base/include/"
,
"-i/Users/nathan/projects/microvm/anuhc/libraries/base"
])
,
(
"base"
,
prefix'
baseFiles
,
[
"-I/home/pavel/Development/mu/mu-client-ghc/libraries/base/include"
,
"-i/home/pavel/Development/mu/mu-client-ghc/libraries/base"
])
,
(
"base"
,
prefix'
baseFiles
,
[
"-I/home/pavel/Development/mu/mu-client-ghc/libraries/base/include
/
"
,
"-i/home/pavel/Development/mu/mu-client-ghc/libraries/base"
])
,
(
"base"
,
prefix'
baseFiles
,
[
"-I/Users/nathan/projects/microvm/anuhc/libraries/base/include/"
,
"-i/Users/nathan/projects/microvm/anuhc/libraries/base"
])
]
where
prefix
=
fmap
(
"/home/pavel/Development/mu/mu-client-ghc/libraries/
base
"
++
)
prefix
=
fmap
(
"/home/pavel/Development/mu/mu-client-ghc/libraries/"
++
)
prefix'
=
fmap
(
"/Users/nathan/projects/microvm/anuhc/libraries/"
++
)
ghcPrimFiles
=
[
"ghc-prim/GHC/CString.hs"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment