diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-15 01:31:19 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-15 01:31:19 +0100 |
| commit | 45f24c7fb08b66f4160e94216599be6594f02416 (patch) | |
| tree | f6b15d150f34d050d8ced97ea4170936bf0beffe | |
| parent | 105f31e1b5b1428ae27590893740017327d322ff (diff) | |
Follow changes in GHC
| -rw-r--r-- | 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 f03801bb..3a7cdd82 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 |