From e7f325f975eb7e816e04d06e35e0bd6dd16776ed Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 21 Mar 2006 13:57:38 +0000 Subject: unlexer bug ; "vilka" ; lib path warning ; p -lines result --- src/GF/Text/Text.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Text') diff --git a/src/GF/Text/Text.hs b/src/GF/Text/Text.hs index 3e1b9c46d..a2a69f70c 100644 --- a/src/GF/Text/Text.hs +++ b/src/GF/Text/Text.hs @@ -60,7 +60,7 @@ formatAsCodeLit :: String -> String formatAsCodeLit = formatAsCode . unwords . map unStringLit . words formatAsText,formatAsHTML,formatAsLatex :: String -> String -formatAsText = formatAsTextGen (=="&-") (=="&-") +formatAsText = formatAsTextGen (const False) (=="&-") formatAsHTML = formatAsTextGen (\s -> take 1 s == "<" || last s == '>') (const False) formatAsLatex = formatAsTextGen ((=="\\") . take 1) (const False) -- cgit v1.2.3