diff options
| -rw-r--r-- | tests/runtests.hs | 3 | ||||
| -rw-r--r-- | tests/tests/FunArgs.html.ref | 3 | ||||
| -rw-r--r-- | tests/tests/Hash.html.ref | 6 | ||||
| -rw-r--r-- | 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 @@ ></TR ><TR ><TD CLASS="arg" ->-> ()</TD +>-> <A HREF="">()</A +></TD ><TD CLASS="rdoc" >Result </TD diff --git a/tests/tests/Hash.html.ref b/tests/tests/Hash.html.ref index 3fb271e6..3362368a 100644 --- a/tests/tests/Hash.html.ref +++ b/tests/tests/Hash.html.ref @@ -148,7 +148,8 @@ > :: (<A HREF="">Eq</A > key, <A HREF="">Hash</A > key) => key -> val -> <A HREF="">IO</A -> ()</TD +> <A HREF="">()</A +></TD ></TR ><TR ><TD CLASS="s8" @@ -300,7 +301,8 @@ > :: (<A HREF="">Eq</A > key, <A HREF="">Hash</A > key) => key -> val -> <A HREF="">IO</A -> ()</TD +> <A HREF="">()</A +></TD ></TR ><TR ><TD CLASS="doc" diff --git a/tests/tests/Test.html.ref b/tests/tests/Test.html.ref index 3a73387b..3c839612 100644 --- a/tests/tests/Test.html.ref +++ b/tests/tests/Test.html.ref @@ -553,7 +553,9 @@ > <A HREF="">Float</A > <A HREF="">Float</A > -> <A HREF="">T5</A -> () ()</TD +> <A HREF="">()</A +> <A HREF="">()</A +></TD ></TR ><TR ><TD CLASS="recfield" @@ -807,7 +809,9 @@ ><TD CLASS="decl" ><A HREF="">k</A > :: <A HREF="">T</A -> () () -> <A HREF="">T2</A +> <A HREF="">()</A +> <A HREF="">()</A +> -> <A HREF="">T2</A > <A HREF="">Int</A > <A HREF="">Int</A > -> (<A HREF="">T3</A @@ -817,8 +821,11 @@ > <A HREF="">Float</A > <A HREF="">Float</A >) -> <A HREF="">T5</A -> () () -> <A HREF="">IO</A -> ()</TD +> <A HREF="">()</A +> <A HREF="">()</A +> -> <A HREF="">IO</A +> <A HREF="">()</A +></TD ></TR ><TR ><TD CLASS="s8" @@ -842,7 +849,8 @@ ><A HREF="">m</A > :: <A HREF="">R</A > -> <A HREF="">N1</A -> () -> <A HREF="">IO</A +> <A HREF="">()</A +> -> <A HREF="">IO</A > <A HREF="">Int</A ></TD ></TR @@ -1879,7 +1887,9 @@ > <A HREF="">Float</A > <A HREF="">Float</A > -> <A HREF="">T5</A -> () ()</TD +> <A HREF="">()</A +> <A HREF="">()</A +></TD ><TD CLASS="rdoc" ></TD ></TR @@ -2822,7 +2832,9 @@ test2 ><TR ><TD CLASS="arg" >:: <A HREF="">T</A -> () ()</TD +> <A HREF="">()</A +> <A HREF="">()</A +></TD ><TD CLASS="rdoc" >This argument has type <TT ><A HREF="">T</A @@ -2858,7 +2870,9 @@ test2 ><TR ><TD CLASS="arg" >-> <A HREF="">T5</A -> () ()</TD +> <A HREF="">()</A +> <A HREF="">()</A +></TD ><TD CLASS="rdoc" >This argument has a very long description that should hopefully cause some wrapping to happen when it is finally @@ -2868,7 +2882,8 @@ test2 ><TR ><TD CLASS="arg" >-> <A HREF="">IO</A -> ()</TD +> <A HREF="">()</A +></TD ><TD CLASS="rdoc" >This is the result type </TD @@ -2949,7 +2964,8 @@ test2 ><TR ><TD CLASS="arg" >-> <A HREF="">N1</A -> ()</TD +> <A HREF="">()</A +></TD ><TD CLASS="rdoc" >one of the arguments </TD |