Repository : ssh://darcs.haskell.org//srv/darcs/haddock On branch : ghc-7.4
http://hackage.haskell.org/trac/ghc/changeset/faf1c0231e199206ff26c13f982d853bf81517f3 >--------------------------------------------------------------- commit faf1c0231e199206ff26c13f982d853bf81517f3 Author: David Waern <[email protected]> Date: Sun Apr 1 20:13:35 2012 +0200 Add test for --ignore-all-exports flag/ignore-exports pragma. >--------------------------------------------------------------- tests/html-tests/tests/IgnoreExports.hs | 10 +++++++ .../{Bug3.html.ref => IgnoreExports.html.ref} | 28 ++++++++++++++++--- 2 files changed, 33 insertions(+), 5 deletions(-) diff --git a/tests/html-tests/tests/IgnoreExports.hs b/tests/html-tests/tests/IgnoreExports.hs new file mode 100644 index 0000000..0321ad0 --- /dev/null +++ b/tests/html-tests/tests/IgnoreExports.hs @@ -0,0 +1,10 @@ +{-# OPTIONS_HADDOCK ignore-exports #-} +module IgnoreExports (foo) where + +-- | documentation for foo +foo :: Int +foo = 23 + +-- | documentation for bar +bar :: Int +bar = 23 diff --git a/tests/html-tests/tests/Bug3.html.ref b/tests/html-tests/tests/IgnoreExports.html.ref similarity index 77% copy from tests/html-tests/tests/Bug3.html.ref copy to tests/html-tests/tests/IgnoreExports.html.ref index a948901..4c09303 100644 --- a/tests/html-tests/tests/Bug3.html.ref +++ b/tests/html-tests/tests/IgnoreExports.html.ref @@ -3,13 +3,13 @@ ><head ><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title - >Bug3</title + >IgnoreExports</title ><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript" ></script ><script type="text/javascript" >//<![CDATA[ -window.onload = function () {pageLoad();setSynopsis("mini_Bug3.html");}; +window.onload = function () {pageLoad();setSynopsis("mini_IgnoreExports.html");}; //]]> </script ></head @@ -39,7 +39,7 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug3.html");}; ></tr ></table ><p class="caption" - >Bug3</p + >IgnoreExports</p ></div ><div id="synopsis" ><p id="control.syn" class="caption expander" onclick="toggleSection('syn')" @@ -51,6 +51,12 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug3.html");}; > :: <a href="" >Int</a ></li + ><li class="src short" + ><a href="" + >bar</a + > :: <a href="" + >Int</a + ></li ></ul ></div ><div id="interface" @@ -65,8 +71,20 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug3.html");}; ></p ><div class="doc" ><p - >/multi-line - emphasis/ + >documentation for foo +</p + ></div + ></div + ><div class="top" + ><p class="src" + ><a name="v:bar" class="def" + >bar</a + > :: <a href="" + >Int</a + ></p + ><div class="doc" + ><p + >documentation for bar </p ></div ></div _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
