Commit 34b9c1cf authored by Ian Lynagh's avatar Ian Lynagh

Fix rn.prog006 on Windows

parent 2ddc5df4
......@@ -16,8 +16,9 @@ include $(TOP)/mk/test.mk
# using the supplied Cabal configuration.
rn.prog006:
$(TEST_HC) --make pwd -v0
$(TEST_HC) --make -package-name test-1.0 B.C -fforce-recomp -v0
sed "s@__IMPORT__@$(abspath .)@" <pkg.conf.in >pkg.conf
sed "s@__IMPORT__@`./pwd`@" <pkg.conf.in >pkg.conf
$(TEST_HC) -c -package-conf pkg.conf -package test -fforce-recomp A.hs -i
# The -i clears the search path, so A.hs will find B.C from package test
#
......
test('rn.prog006',
extra_clean(['A.hi', 'A.o', 'B/C.hi', 'B/C.o',
'Main.hi', 'Main.o', 'pkg.conf']),
'Main.hi', 'Main.o', 'pkg.conf',
'pwd', 'pwd.exe', 'pwd.exe.manifest',
'pwd.hi', 'pwd.o']),
run_command,
['$MAKE -s --no-print-directory rn.prog006'])
module Main where
import System.Directory
import System.Environment
main :: IO ()
main = do d <- getCurrentDirectory
putStr $ concatMap f d
where f '\\' = "/"
f c = [c]
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