From e56b9cce24ac4895705576e282223f8811ed8eab Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Fri, 13 Aug 2010 21:43:41 +0000
Subject: add Frames button and clean up frames.html

---
 src/Haddock/Backends/Xhtml.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 4bd355ae..8618d16f 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -172,7 +172,9 @@ bodyHtml doctitle iface themes
         wikiButton maybe_wiki_url (ifaceMod `fmap` iface),
         contentsButton maybe_contents_url,
         indexButton maybe_index_url,
-        styleMenu themes]) ! [theclass "links"],
+        styleMenu themes,
+        Just (anchor ! [ href "#", onclick "reframe();"] << "Frames")])
+            ! [theclass "links"],
       nonEmpty sectionName << doctitle
       ],
     divContent << pageContent,
-- 
cgit v1.2.3