wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adapt to work with GHC 6.12

Browse Source 
- Adapted the package to work with GHC 6.12
- Plugins that depend on the old base3 are currently
  not correctly loaded as the plugin loaded misses
  the dependence on syb (leading to unresolved symbols)
- Cleaned up most of the testsuite (there are still
  some outstanding failures, of which only one
  demonstrates a bug in the plugins library as far
  as I can see — see previous bullet point)
- Cleaned out a little cruft (but more could be done)
This commit is contained in:
Manuel M T Chakravarty
2010-09-22 05:10:19 +00:00
parent 67635f72b8
commit 838f8c0aca
34 changed files with 89 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
testsuite/misc/mkstemps/Main.hs
View File

@ -36,7 +36,7 @@ main = do
() <- if (not $ all isJust ts)
then putStrLn $ "mkstemp couldn't create all expected files"
else putStrLn $ "mkstemp: created "++(show $ length $ catMaybes ts)++" files"
else putStrLn $ "mkstemp: created "++(show $ length $ catMaybes ts)++" files"
rmAll ts
------------------------------------------------------------------------
@ -47,7 +47,7 @@ main = do
_ -> return v ) [1..2000]
() <- if (not $ all isJust ts)
then putStrLn $ "mkstemps couldn't create all expected files"
else putStrLn $ "mkstemps: created "++(show $ length $ catMaybes ts)++" files"
else putStrLn $ "mkstemps: created "++(show $ length $ catMaybes ts)++" files"
rmAll ts
------------------------------------------------------------------------
@ -55,8 +55,8 @@ main = do
--
ts <- mapM (\_ -> mkdtemp "t/XXXXXXXXXX") [1..2000]
() <- if (not $ all isJust ts)
then putStrLn $ "mkdtemp: couldn't create all expected directories"
else putStrLn $ "mkdtemp: created "++(show $ length $ catMaybes ts)++" directories"
then putStrLn $ "mkdtemp: couldn't create all expected directories"
else putStrLn $ "mkdtemp: created "++(show $ length $ catMaybes ts)++" directories"
rmAllDirs ts
------------------------------------------------------------------------

6
testsuite/misc/mkstemps/expected
View File

@ -1,5 +1,5 @@
created 53 files
correctly ran out of permutations
mkstemp: created 10000 files
mkstemps: created 2000 files
mkdtemp: created 2000 directories
mkstemp: created 10000 files
mkstemps: created 2000 files
mkdtemp: created 2000 directories