<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->
<title>dist/build/Graphics/Rendering/Pango/Markup.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a>
<a name="line-2"></a><span class='hs-comment'>{-# LINE 2 "./Graphics/Rendering/Pango/Markup.chs" #-}</span>
<a name="line-3"></a><span class='hs-comment'>-- -*-haskell-*-</span>
<a name="line-4"></a><span class='hs-comment'>-- GIMP Toolkit (GTK) Markup</span>
<a name="line-5"></a><span class='hs-comment'>--</span>
<a name="line-6"></a><span class='hs-comment'>-- Author : Axel Simon</span>
<a name="line-7"></a><span class='hs-comment'>--</span>
<a name="line-8"></a><span class='hs-comment'>-- Created: 5 June 2001</span>
<a name="line-9"></a><span class='hs-comment'>--</span>
<a name="line-10"></a><span class='hs-comment'>-- Copyright (C) 1999-2005 Axel Simon</span>
<a name="line-11"></a><span class='hs-comment'>--</span>
<a name="line-12"></a><span class='hs-comment'>-- This library is free software; you can redistribute it and/or</span>
<a name="line-13"></a><span class='hs-comment'>-- modify it under the terms of the GNU Lesser General Public</span>
<a name="line-14"></a><span class='hs-comment'>-- License as published by the Free Software Foundation; either</span>
<a name="line-15"></a><span class='hs-comment'>-- version 2.1 of the License, or (at your option) any later version.</span>
<a name="line-16"></a><span class='hs-comment'>--</span>
<a name="line-17"></a><span class='hs-comment'>-- This library is distributed in the hope that it will be useful,</span>
<a name="line-18"></a><span class='hs-comment'>-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
<a name="line-19"></a><span class='hs-comment'>-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU</span>
<a name="line-20"></a><span class='hs-comment'>-- Lesser General Public License for more details.</span>
<a name="line-21"></a><span class='hs-comment'>--</span>
<a name="line-22"></a><span class='hs-comment'>-- |</span>
<a name="line-23"></a><span class='hs-comment'>-- Maintainer : gtk2hs-users@lists.sourceforge.net</span>
<a name="line-24"></a><span class='hs-comment'>-- Stability : provisional</span>
<a name="line-25"></a><span class='hs-comment'>-- Portability : portable (depends on GHC)</span>
<a name="line-26"></a><span class='hs-comment'>--</span>
<a name="line-27"></a><span class='hs-comment'>-- This module defines some helper functions for generating texts with</span>
<a name="line-28"></a><span class='hs-comment'>-- embedded attributes. Note that there is no need to use these functions.</span>
<a name="line-29"></a><span class='hs-comment'>-- In particular, if you set markup in labels that are subject to</span>
<a name="line-30"></a><span class='hs-comment'>-- internationalization, it can be of advantage to write out the markup</span>
<a name="line-31"></a><span class='hs-comment'>-- instead of using the functions in this module.</span>
<a name="line-32"></a><span class='hs-comment'>--</span>
<a name="line-33"></a><span class='hs-comment'>-- In order to display a string that may contain markup characters, use</span>
<a name="line-34"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.Pango.Layout.escapeMarkup'.</span>
<a name="line-35"></a><span class='hs-comment'>--</span>
<a name="line-36"></a><span class='hs-comment'>-- When you write markup directly, you can make use of the following</span>
<a name="line-37"></a><span class='hs-comment'>-- convenience tags:</span>
<a name="line-38"></a><span class='hs-comment'>--</span>
<a name="line-39"></a><span class='hs-comment'>-- [@b@] Bold</span>
<a name="line-40"></a><span class='hs-comment'>--</span>
<a name="line-41"></a><span class='hs-comment'>-- [@big@] Makes font relatively larger</span>
<a name="line-42"></a><span class='hs-comment'>--</span>
<a name="line-43"></a><span class='hs-comment'>-- [@i@] Italic</span>
<a name="line-44"></a><span class='hs-comment'>--</span>
<a name="line-45"></a><span class='hs-comment'>-- [@s@] Strikethrough</span>
<a name="line-46"></a><span class='hs-comment'>--</span>
<a name="line-47"></a><span class='hs-comment'>-- [@sub@] Subscript</span>
<a name="line-48"></a><span class='hs-comment'>--</span>
<a name="line-49"></a><span class='hs-comment'>-- [@sup@] Superscript</span>
<a name="line-50"></a><span class='hs-comment'>--</span>
<a name="line-51"></a><span class='hs-comment'>-- [@small@] Makes font relatively smaller</span>
<a name="line-52"></a><span class='hs-comment'>--</span>
<a name="line-53"></a><span class='hs-comment'>-- [@tt@] Monospace font</span>
<a name="line-54"></a><span class='hs-comment'>--</span>
<a name="line-55"></a><span class='hs-comment'>-- [@u@] Underline</span>
<a name="line-56"></a><span class='hs-comment'>--</span>
<a name="line-57"></a><span class='hs-comment'>-- The full markup language can be found at</span>
<a name="line-58"></a><span class='hs-comment'>-- <http:</span>
<a name="line-59"></a><span class='hs-comment'>--</span>
<a name="line-60"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Markup</span> <span class='hs-layout'>(</span>
<a name="line-61"></a> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Markup</span><span class='hs-layout'>,</span>
<a name="line-62"></a> <span class='hs-conid'>SpanAttribute</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-63"></a> <span class='hs-varid'>markSpan</span><span class='hs-layout'>,</span>
<a name="line-64"></a> <span class='hs-varid'>parseMarkup</span>
<a name="line-65"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-66"></a>
<a name="line-67"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Enums</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Pango</span>
<a name="line-68"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Attributes</span> <span class='hs-layout'>(</span> <span class='hs-varid'>parseMarkup</span> <span class='hs-layout'>)</span>
<a name="line-69"></a>
<a name="line-70"></a><a name="SpanAttribute"></a><span class='hs-comment'>-- | These are all the attributes the 'markSpan' function can express.</span>
<a name="line-71"></a><a name="SpanAttribute"></a><span class='hs-comment'>--</span>
<a name="line-72"></a><a name="SpanAttribute"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>SpanAttribute</span>
<a name="line-73"></a> <span class='hs-comment'>-- | Choose a font by textual description.</span>
<a name="line-74"></a> <span class='hs-comment'>--</span>
<a name="line-75"></a> <span class='hs-comment'>-- * Takes a string to completely describe the font, example:</span>
<a name="line-76"></a> <span class='hs-comment'>-- @FontDescr@ \"Sans Italic 12\"</span>
<a name="line-77"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>FontDescr</span> <span class='hs-conid'>String</span>
<a name="line-78"></a>
<a name="line-79"></a> <span class='hs-comment'>-- | Specify the family of font to use.</span>
<a name="line-80"></a> <span class='hs-comment'>--</span>
<a name="line-81"></a> <span class='hs-comment'>-- * Example: @FontFamily@ \"Sans\"</span>
<a name="line-82"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontFamily</span> <span class='hs-conid'>String</span>
<a name="line-83"></a>
<a name="line-84"></a> <span class='hs-comment'>-- | Change the size of the current font.</span>
<a name="line-85"></a> <span class='hs-comment'>--</span>
<a name="line-86"></a> <span class='hs-comment'>-- * The constuctor takes the size in points (pt) or a predefined</span>
<a name="line-87"></a> <span class='hs-comment'>-- sizes. Setting the absolute size 12.5pt can be achieved by passing</span>
<a name="line-88"></a> <span class='hs-comment'>-- 'FontSize' ('SizePoint' 12.5) to 'markSpan'. Next to predefined</span>
<a name="line-89"></a> <span class='hs-comment'>-- absolute sizes such as 'Pango.SizeSmall' the size can be changed by</span>
<a name="line-90"></a> <span class='hs-comment'>-- asking for the next larger or smaller front with</span>
<a name="line-91"></a> <span class='hs-comment'>-- 'Pango.SizeLarger' and 'Pango.SizeSmaller', respectively.</span>
<a name="line-92"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontSize</span> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Size</span>
<a name="line-93"></a>
<a name="line-94"></a> <span class='hs-comment'>-- | Change the slant of the current font.</span>
<a name="line-95"></a> <span class='hs-comment'>--</span>
<a name="line-96"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontStyle</span> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>FontStyle</span>
<a name="line-97"></a>
<a name="line-98"></a> <span class='hs-comment'>-- | Change the thickness of the current font.</span>
<a name="line-99"></a> <span class='hs-comment'>--</span>
<a name="line-100"></a> <span class='hs-comment'>-- * The constructor takes one of the six predefined weights. Most likely to</span>
<a name="line-101"></a> <span class='hs-comment'>-- be supported: 'Pango.WeightBold'.</span>
<a name="line-102"></a> <span class='hs-comment'>--</span>
<a name="line-103"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontWeight</span> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Weight</span>
<a name="line-104"></a>
<a name="line-105"></a> <span class='hs-comment'>-- | Choosing an alternative rendering for lower case letters.</span>
<a name="line-106"></a> <span class='hs-comment'>--</span>
<a name="line-107"></a> <span class='hs-comment'>-- * The argument 'Pango.VariantSmallCaps' will display lower case letters</span>
<a name="line-108"></a> <span class='hs-comment'>-- as smaller upper case letters, if this option is available.</span>
<a name="line-109"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontVariant</span> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Variant</span>
<a name="line-110"></a>
<a name="line-111"></a> <span class='hs-comment'>-- | Choose a different width.</span>
<a name="line-112"></a> <span class='hs-comment'>--</span>
<a name="line-113"></a> <span class='hs-comment'>-- * Takes one of nine font widths, e.g. 'Pango.WidthExpanded'.</span>
<a name="line-114"></a> <span class='hs-comment'>--</span>
<a name="line-115"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontStretch</span> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Stretch</span>
<a name="line-116"></a>
<a name="line-117"></a> <span class='hs-comment'>-- | Foreground color.</span>
<a name="line-118"></a> <span class='hs-comment'>--</span>
<a name="line-119"></a> <span class='hs-comment'>-- * This constructor and 'FontBackground' take both a description</span>
<a name="line-120"></a> <span class='hs-comment'>-- of the color to be used for rendering. The name is either a</span>
<a name="line-121"></a> <span class='hs-comment'>-- hex code of the form \"#RRGGBB\" or an X11 color name like</span>
<a name="line-122"></a> <span class='hs-comment'>-- \"dark olive green\".</span>
<a name="line-123"></a> <span class='hs-comment'>--</span>
<a name="line-124"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontForeground</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- FIXME: should be ColorName from GDK or so</span>
<a name="line-125"></a>
<a name="line-126"></a> <span class='hs-comment'>-- | Background color.</span>
<a name="line-127"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontBackground</span> <span class='hs-conid'>String</span>
<a name="line-128"></a>
<a name="line-129"></a> <span class='hs-comment'>-- | Specify underlining of text.</span>
<a name="line-130"></a> <span class='hs-comment'>--</span>
<a name="line-131"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontUnderline</span> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Underline</span>
<a name="line-132"></a>
<a name="line-133"></a> <span class='hs-comment'>-- | Specify a vertical displacement.</span>
<a name="line-134"></a> <span class='hs-comment'>--</span>
<a name="line-135"></a> <span class='hs-comment'>-- * Takes the vertical displacement in em (the width of the \'m\' character</span>
<a name="line-136"></a> <span class='hs-comment'>-- in the current font).</span>
<a name="line-137"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontRise</span> <span class='hs-conid'>Double</span>
<a name="line-138"></a>
<a name="line-139"></a> <span class='hs-comment'>-- | Give a hint about the language to be displayed.</span>
<a name="line-140"></a> <span class='hs-comment'>--</span>
<a name="line-141"></a> <span class='hs-comment'>-- * This hint might help the system rendering a particular piece of text</span>
<a name="line-142"></a> <span class='hs-comment'>-- with different fonts that are more suitable for the given language.</span>
<a name="line-143"></a> <span class='hs-comment'>--</span>
<a name="line-144"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontLang</span> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Language</span>
<a name="line-145"></a>
<a name="line-146"></a>
<a name="line-147"></a> <span class='hs-comment'>-- | Gravity of text, use for ratation.</span>
<a name="line-148"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontGravity</span> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>PangoGravity</span>
<a name="line-149"></a>
<a name="line-150"></a> <span class='hs-comment'>-- | Intensity of gravity.</span>
<a name="line-151"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>FontGravityHint</span> <span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>PangoGravityHint</span>
<a name="line-152"></a>
<a name="line-153"></a>
<a name="line-154"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>SpanAttribute</span> <span class='hs-keyword'>where</span>
<a name="line-155"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontDescr</span> <span class='hs-varid'>str</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" font_desc="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>str</span>
<a name="line-156"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontFamily</span> <span class='hs-varid'>str</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" font_family="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>str</span>
<a name="line-157"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontSize</span> <span class='hs-varid'>size</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" size="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>size</span>
<a name="line-158"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontStyle</span> <span class='hs-varid'>style</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" style="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>style</span>
<a name="line-159"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontWeight</span> <span class='hs-varid'>w</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" weight="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>w</span>
<a name="line-160"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontVariant</span> <span class='hs-varid'>v</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" variant="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>v</span>
<a name="line-161"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontStretch</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" stretch="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>s</span>
<a name="line-162"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontForeground</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" foreground="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>c</span>
<a name="line-163"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontBackground</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" background="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>c</span>
<a name="line-164"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontUnderline</span> <span class='hs-varid'>u</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" underline="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>u</span>
<a name="line-165"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontRise</span> <span class='hs-varid'>r</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" rise="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span>
<a name="line-166"></a> <span class='hs-layout'>(</span><span class='hs-varid'>show</span> <span class='hs-layout'>(</span><span class='hs-varid'>round</span> <span class='hs-layout'>(</span><span class='hs-varid'>r</span><span class='hs-varop'>*</span><span class='hs-num'>10000</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-167"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontLang</span> <span class='hs-varid'>l</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" lang="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>l</span>
<a name="line-168"></a>
<a name="line-169"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontGravity</span> <span class='hs-varid'>g</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" gravity="</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>g</span>
<a name="line-170"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontGravityHint</span> <span class='hs-varid'>h</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>" gravity_hint"</span><span class='hs-varop'>.</span><span class='hs-varid'>shows</span> <span class='hs-varid'>h</span>
<a name="line-171"></a>
<a name="line-172"></a>
<a name="line-173"></a><a name="markSpan"></a><span class='hs-comment'>-- | Create the most generic span attribute.</span>
<a name="line-174"></a><span class='hs-comment'>--</span>
<a name="line-175"></a><span class='hs-definition'>markSpan</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>SpanAttribute</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-176"></a><span class='hs-definition'>markSpan</span> <span class='hs-varid'>attrs</span> <span class='hs-varid'>text</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>showString</span> <span class='hs-str'>"<span"</span><span class='hs-varop'>.</span>
<a name="line-177"></a> <span class='hs-varid'>foldr</span> <span class='hs-layout'>(</span><span class='hs-varop'>.</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>showChar</span> <span class='hs-chr'>'>'</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>shows</span> <span class='hs-varid'>attrs</span><span class='hs-layout'>)</span><span class='hs-varop'>.</span>
<a name="line-178"></a> <span class='hs-varid'>showString</span> <span class='hs-varid'>text</span><span class='hs-varop'>.</span>
<a name="line-179"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"</span>"</span> <span class='hs-varop'>$</span> <span class='hs-str'>""</span>
</pre></body>
</html>
