diff options
-rw-r--r-- | tests/tests/FunArgs.hs | 7 | ||||
-rw-r--r-- | tests/tests/FunArgs.html.ref | 48 | ||||
-rw-r--r-- | tests/tests/Test.html.ref | 4 |
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" +>-> b</TD +><TD CLASS="rdoc" +>Second argument +</TD +></TR +><TR +><TD CLASS="arg" +>-> c</TD +><TD CLASS="rdoc" +>Third argument +</TD +></TR +><TR +><TD CLASS="arg" +>-> 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" ->-> <A HREF="">T3</A +>-> (<A HREF="">T3</A > <A HREF="">Bool</A > <A HREF="">Bool</A > -> <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 -> T4 Float Float</TT |