Skip to content

M
mu-client-ghc
Commit c0bd4b23 authored by Pavel Zakopaylo's avatar Pavel Zakopaylo
Browse files
Options

Fixed source-module path

parent c145fadb
Pipeline #517 canceled with stages
      Hide whitespace changes
      Inline Side-by-side
      Showing with 4 additions and 4 deletions
      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"
      ......
      Markdown is supported
      0% or
      You are about to add 0 people to the discussion. Proceed with caution.
      Finish editing this message first!
      Please register or to comment