From 24ba5b3b82441ecd9a20f05b7b39071f51c32c03 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 25 Oct 2004 14:22:18 +0000 Subject: markup --- 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 de29e9026..aff52608b 100644 --- a/src/GF/Text/Text.hs +++ b/src/GF/Text/Text.hs @@ -46,7 +46,7 @@ formatAsText = unwords . format . cap . words where cap [] = [] major = flip elem (map singleton ".!?") minor = flip elem (map singleton ",:;") - para = (=="

") + para = (=="&-") formatAsCode :: String -> String formatAsCode = rend 0 . words where -- cgit v1.2.3