From 33f01ea91df74992a0c6f3ea59d2ce0822ced950 Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 8 Apr 2010 01:03:06 +0000 Subject: Add ghc-prim to test suite deps --- tests/runtests.hs | 3 ++- tests/tests/FunArgs.html.ref | 3 ++- tests/tests/Hash.html.ref | 6 ++++-- tests/tests/Test.html.ref | 36 ++++++++++++++++++++++++++---------- 4 files changed, 34 insertions(+), 14 deletions(-) diff --git a/tests/runtests.hs b/tests/runtests.hs index a3925efa..99a47828 100644 --- a/tests/runtests.hs +++ b/tests/runtests.hs @@ -58,11 +58,12 @@ test = do let base = mkDep "base" "4.2.0.0" process = mkDep "process" "1.0.1.2" + ghcprim = mkDep "ghc-prim" "0.2.0.0" putStrLn "Running tests..." handle <- runProcess haddockPath (["-w", "-o", outdir, "-h", "--optghc=-fglasgow-exts" - , "--optghc=-w", base, process] ++ opts ++ mods') + , "--optghc=-w", base, process, ghcprim] ++ opts ++ mods') Nothing (Just [("haddock_datadir", "../.")]) Nothing Nothing Nothing diff --git a/tests/tests/FunArgs.html.ref b/tests/tests/FunArgs.html.ref index 17883d64..f6c34bd4 100644 --- a/tests/tests/FunArgs.html.ref +++ b/tests/tests/FunArgs.html.ref @@ -118,7 +118,8 @@ >-> ()-> ()Result :: (Eq key, Hash key) => key -> val -> IO () () :: (Eq key, Hash key) => key -> val -> IO () () Float Float -> T5 () () () ()k :: T () () -> T2 () () -> T2 Int Int -> (T3 Float Float) -> T5 () () -> IO () () () -> IO ()m :: R -> N1 () -> IO () -> IO Int Float Float -> T5 () () () ():: T () () () ()This argument has type T-> T5 () () () ()This argument has a very long description that should hopefully cause some wrapping to happen when it is finally @@ -2868,7 +2882,8 @@ test2 >-> IO () ()This is the result type -> N1 () ()one of the arguments