From 9efbdbefffd477ab5261724b926f0096f0e578b6 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 30 Jul 2010 20:21:46 +0000 Subject: Fix build in GHC tree --- haddock.cabal | 1 + src/Haddock/InterfaceFile.hs | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/haddock.cabal b/haddock.cabal index 0058cb59..e102d64d 100644 --- a/haddock.cabal +++ b/haddock.cabal @@ -124,6 +124,7 @@ executable haddock Haddock.Backends.Xhtml.DocMarkup Haddock.Backends.Xhtml.Layout Haddock.Backends.Xhtml.Names + Haddock.Backends.Xhtml.Themes Haddock.Backends.Xhtml.Types Haddock.Backends.Xhtml.Utils Haddock.Backends.LaTeX diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs index e97b8a3e..5fe47b72 100644 --- a/src/Haddock/InterfaceFile.hs +++ b/src/Haddock/InterfaceFile.hs @@ -103,7 +103,7 @@ writeInterfaceFile filename iface = do -- write the symtab pointer at the front of the file symtab_p <- tellBin bh putAt bh symtab_p_p symtab_p - seekBin bh symtab_p + seekBin bh symtab_p -- write the symbol table itself symtab_next' <- readFastMutInt symtab_next -- cgit v1.2.3