Improve FunArg test and update Test.html.ref

3 files changed, 57 insertions, 2 deletions

diff --git a/tests/tests/FunArgs.hs b/tests/tests/FunArgs.hs
index aadbf236..b34d84b7 100644
--- a/tests/tests/FunArgs.hs
+++ b/tests/tests/FunArgs.hs
@@ -7,3 +7,10 @@ f :: forall a. Ord a
   -> (a -> a)     -- ^ Fourth argument
   -> ()           -- ^ Result
 f = undefined
+
+
+g :: a -- ^ First argument
+  -> b -- ^ Second argument
+  -> c -- ^ Third argument
+  -> d -- ^ Result
+g = undefined
diff --git a/tests/tests/FunArgs.html.ref b/tests/tests/FunArgs.html.ref
index 12371e63..0e0a765f 100644
--- a/tests/tests/FunArgs.html.ref
+++ b/tests/tests/FunArgs.html.ref
@@ -131,6 +131,54 @@
 ></TD
 ></TR
 ><TR
+><TD CLASS="decl"
+><A NAME="v:g"
+><A NAME="v%3Ag"
+></A
+></A
+><B
+>g</B
+></TD
+></TR
+><TR
+><TD CLASS="body"
+><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
+><TR
+><TD CLASS="arg"
+>:: a</TD
+><TD CLASS="rdoc"
+>First argument
+</TD
+></TR
+><TR
+><TD CLASS="arg"
+>-&gt; b</TD
+><TD CLASS="rdoc"
+>Second argument
+</TD
+></TR
+><TR
+><TD CLASS="arg"
+>-&gt; c</TD
+><TD CLASS="rdoc"
+>Third argument
+</TD
+></TR
+><TR
+><TD CLASS="arg"
+>-&gt; d</TD
+><TD CLASS="rdoc"
+>Result
+</TD
+></TR
+></TABLE
+></TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
 ><TD CLASS="botbar"
 >Produced by <A HREF="">Haddock</A
 > version 2.6.0</TD
diff --git a/tests/tests/Test.html.ref b/tests/tests/Test.html.ref
index d6d31ff9..e25b9d9f 100644
--- a/tests/tests/Test.html.ref
+++ b/tests/tests/Test.html.ref
@@ -2842,13 +2842,13 @@ test2
 ></TR
 ><TR
 ><TD CLASS="arg"
->-&gt; <A HREF="">T3</A
+>-&gt; (<A HREF="">T3</A
 > <A HREF="">Bool</A
 > <A HREF="">Bool</A
 > -&gt; <A HREF="">T4</A
 > <A HREF="">Float</A
 > <A HREF="">Float</A
-></TD
+>)</TD
 ><TD CLASS="rdoc"
 >This argument has type <TT
 >T3 Bool Bool -&gt; T4 Float Float</TT