Unify include and link paths
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Wed, 18 May 2016 23:45:14 +0000 (00:45 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Wed, 18 May 2016 23:45:14 +0000 (00:45 +0100)
src/Settings/Builders/Common.hs
src/Settings/Builders/Ghc.hs

index 3f53dec..252667f 100644 (file)
@@ -25,7 +25,7 @@ cIncludeArgs = do
     mconcat [ arg $ "-I" ++ path
             , arg $ "-I" ++ path -/- "autogen"
             , append [ "-I" ++ pkgPath pkg -/- dir | dir <- incDirs ]
-            , append [ "-I" ++                 dir | dir <- depDirs ] ]
+            , append [ "-I" ++       unifyPath dir | dir <- depDirs ] ]
 
 ldArgs :: Args
 ldArgs = mempty
index 66c009b..2199874 100644 (file)
@@ -44,8 +44,8 @@ ghcLinkArgs = builder (Ghc Link) ? do
                else return []
     libDirs <- getPkgDataList DepLibDirs
     mconcat [ arg "-no-auto-link-packages"
-            , append [ "-optl-l" ++ lib | lib <- libs ++ gmpLibs ]
-            , append [ "-optl-L" ++ dir | dir <- libDirs ] ]
+            , append [ "-optl-l" ++           lib | lib <- libs ++ gmpLibs ]
+            , append [ "-optl-L" ++ unifyPath dir | dir <- libDirs ] ]
 
 -- TODO: Add Touchy builder and use needBuilder.
 needTouchy :: ReaderT Target Action ()