From 98c3fe61254693e23aad7fa306cb6fd4a97787d0 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 28 May 2007 08:26:58 +0200 Subject: Fix manpage generator darcs-hash:20070528062658-a5988-23ac3002eafd26c92e5fe413215fc5212d3611bb --- util/GenerateManpage.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'util') 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) -- cgit v1.2.3