aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-01-24 16:05:08 +0000
committerDavid Waern <david.waern@gmail.com>2010-01-24 16:05:08 +0000
commitbf7ab3e68298fc4748264e321330c6c023338ffa (patch)
tree2534ba6bb733530e511e231924e6b15244e5ab93 /tests
parent6681572743fde4854d31616a433a9a222fe04192 (diff)
Improve FunArg test and update Test.html.ref
Diffstat (limited to 'tests')
-rw-r--r--tests/tests/FunArgs.hs7
-rw-r--r--tests/tests/FunArgs.html.ref48
-rw-r--r--tests/tests/Test.html.ref4
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