diff options
Diffstat (limited to 'src/GF/Canon/Unlex.hs')
| -rw-r--r-- | src/GF/Canon/Unlex.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/GF/Canon/Unlex.hs b/src/GF/Canon/Unlex.hs index 09f330e30..934fe3c43 100644 --- a/src/GF/Canon/Unlex.hs +++ b/src/GF/Canon/Unlex.hs @@ -9,10 +9,10 @@ -- > CVS $Author $ -- > CVS $Revision $ -- --- (Description of the module) +-- elementary text postprocessing. AR 21/11/2001 ----------------------------------------------------------------------------- -module Unlex where +module Unlex (formatAsText, unlex, performBinds) where import Operations import Str @@ -20,8 +20,6 @@ import Str import Char import List (isPrefixOf) --- elementary text postprocessing. AR 21/11/2001 - formatAsText :: String -> String formatAsText = unwords . format . cap . words where format ws = case ws of @@ -40,7 +38,7 @@ formatAsText = unwords . format . cap . words where unlex :: [Str] -> String unlex = formatAsText . performBinds . concat . map sstr . take 1 ---- --- modified from GF/src/Text by adding hyphen +-- | modified from GF/src/Text by adding hyphen performBinds :: String -> String performBinds = unwords . format . words where format ws = case ws of |