[commit: haddock] master: Follow changes in GHC (45f24c7)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/45f24c7fb08b66f4160e94216599be6594f02416

>---------------------------------------------------------------

commit 45f24c7fb08b66f4160e94216599be6594f02416
Author: Ian Lynagh <igloo at earth.li>
Date:   Sun Jul 15 01:31:19 2012 +0100

    Follow changes in GHC

>---------------------------------------------------------------

 src/Haddock/Backends/LaTeX.hs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/Haddock/Backends/LaTeX.hs b/src/Haddock/Backends/LaTeX.hs
index f03801b..3a7cdd8 100644
--- a/src/Haddock/Backends/LaTeX.hs
+++ b/src/Haddock/Backends/LaTeX.hs
@@ -24,7 +24,7 @@ import GHC
 import OccName
 import Name                 ( nameOccName )
 import RdrName              ( rdrNameOcc )
-import FastString           ( unpackFS, unpackLitString )
+import FastString           ( unpackFS, unpackLitString, zString )
 
 import qualified Data.Map as Map
 import System.Directory
@@ -170,6 +170,7 @@ string_txt :: TextDetails -> String -> String
 string_txt (Chr c)   s  = c:s
 string_txt (Str s1)  s2 = s1 ++ s2
 string_txt (PStr s1) s2 = unpackFS s1 ++ s2
+string_txt (ZStr s1) s2 = zString s1 ++ s2
 string_txt (LStr s1 _) s2 = unpackLitString s1 ++ s2