aboutsummaryrefslogtreecommitdiffstats
path: root/util
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-05-28 08:26:58 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-05-28 08:26:58 +0200
commitc3d80cacc73866c58a80536f25ba6dad0a651678 (patch)
tree12237960bdb9ebdc27d5072c508b8b88b418c323 /util
parent708e311bac3c44174b5cf3bdf52326ff89c9e202 (diff)
downloadxmonad-c3d80cacc73866c58a80536f25ba6dad0a651678.tar.gz
xmonad-c3d80cacc73866c58a80536f25ba6dad0a651678.tar.xz
xmonad-c3d80cacc73866c58a80536f25ba6dad0a651678.zip
Fix manpage generator
darcs-hash:20070528062658-a5988-23ac3002eafd26c92e5fe413215fc5212d3611bb.gz
Diffstat (limited to 'util')
-rw-r--r--util/GenerateManpage.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/util/GenerateManpage.hs b/util/GenerateManpage.hs
index 540c74c..5137184 100644
--- a/util/GenerateManpage.hs
+++ b/util/GenerateManpage.hs
@@ -36,7 +36,7 @@ allBindings xs = map (binding . map trim) (xs =~ "(.*)--(.*)@@(.*)")
-- FIXME: What escaping should we be doing on these strings?
troff :: (String, String) -> String
-troff (key, desc) = ".IP \\fB" ++ key ++ "\\fR\n" ++ desc ++ "\n"
+troff (key, desc) = ".IP\n \\fB" ++ key ++ "\\fR\n" ++ desc ++ "\n"
replace :: Eq a => a -> a -> [a] -> [a]
replace x y = map (\a -> if a == x then y else a)