"Committed_by_peb"

14 files changed, 17 insertions, 20 deletions

diff --git a/src/GF/Text/Arabic.hs b/src/GF/Text/Arabic.hs
index 5399613ed..2e245c217 100644
--- a/src/GF/Text/Arabic.hs
+++ b/src/GF/Text/Arabic.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module Arabic where
+module Arabic (mkArabic) where
 
 mkArabic :: String -> String
 mkArabic = unwords . (map mkArabicWord) . words
diff --git a/src/GF/Text/Devanagari.hs b/src/GF/Text/Devanagari.hs
index 422cafec3..a66477449 100644
--- a/src/GF/Text/Devanagari.hs
+++ b/src/GF/Text/Devanagari.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module Devanagari where
+module Devanagari (mkDevanagari) where
 
 mkDevanagari :: String -> String
 mkDevanagari = digraphWordToUnicode . adHocToDigraphWord
diff --git a/src/GF/Text/Ethiopic.hs b/src/GF/Text/Ethiopic.hs
index 567f98e41..520dbb540 100644
--- a/src/GF/Text/Ethiopic.hs
+++ b/src/GF/Text/Ethiopic.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module Ethiopic where
+module Ethiopic (mkEthiopic) where
 
 -- Ascii-Unicode decoding for Ethiopian
 -- Copyright (c) Harald Hammarström 2003 under Gnu General Public License
diff --git a/src/GF/Text/ExtendedArabic.hs b/src/GF/Text/ExtendedArabic.hs
index 8d1f3657a..4625a5a97 100644
--- a/src/GF/Text/ExtendedArabic.hs
+++ b/src/GF/Text/ExtendedArabic.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module ExtendedArabic where
+module ExtendedArabic (mkArabic0600, mkExtendedArabic) where
 
 mkArabic0600 :: String -> String
 mkArabic0600 = digraphWordToUnicode . aarnesToDigraphWord
diff --git a/src/GF/Text/ExtraDiacritics.hs b/src/GF/Text/ExtraDiacritics.hs
index 61bbb52d7..03b9dd4ff 100644
--- a/src/GF/Text/ExtraDiacritics.hs
+++ b/src/GF/Text/ExtraDiacritics.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module ExtraDiacritics where
+module ExtraDiacritics (mkExtraDiacritics) where
 
 mkExtraDiacritics :: String -> String
 mkExtraDiacritics = mkExtraDiacriticsWord
diff --git a/src/GF/Text/Greek.hs b/src/GF/Text/Greek.hs
index e51ddafc4..68d0a6e2a 100644
--- a/src/GF/Text/Greek.hs
+++ b/src/GF/Text/Greek.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module Greek where
+module Greek (mkGreek) where
 
 mkGreek :: String -> String
 mkGreek = unwords . (map mkGreekWord) . mkGravis . words
diff --git a/src/GF/Text/Hebrew.hs b/src/GF/Text/Hebrew.hs
index 423126f5b..c5e8c7b89 100644
--- a/src/GF/Text/Hebrew.hs
+++ b/src/GF/Text/Hebrew.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module Hebrew where
+module Hebrew (mkHebrew) where
 
 mkHebrew :: String -> String
 mkHebrew = mkHebrewWord
diff --git a/src/GF/Text/Hiragana.hs b/src/GF/Text/Hiragana.hs
index ba1ca6322..69b534128 100644
--- a/src/GF/Text/Hiragana.hs
+++ b/src/GF/Text/Hiragana.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module Hiragana where
+module Hiragana (mkJapanese) where
 
 -- long vowel romaaji must be ei, ou not ee, oo  
 
diff --git a/src/GF/Text/LatinASupplement.hs b/src/GF/Text/LatinASupplement.hs
index 5a1794e20..0bb070a00 100644
--- a/src/GF/Text/LatinASupplement.hs
+++ b/src/GF/Text/LatinASupplement.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module LatinASupplement where
+module LatinASupplement (mkLatinASupplement) where
 
 mkLatinASupplement :: String -> String
 mkLatinASupplement = mkLatinASupplementWord
diff --git a/src/GF/Text/OCSCyrillic.hs b/src/GF/Text/OCSCyrillic.hs
index 71f908bd2..894a29e14 100644
--- a/src/GF/Text/OCSCyrillic.hs
+++ b/src/GF/Text/OCSCyrillic.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module OCSCyrillic where
+module OCSCyrillic (mkOCSCyrillic) where
 
 mkOCSCyrillic :: String -> String
 mkOCSCyrillic = mkOCSCyrillicWord
diff --git a/src/GF/Text/Russian.hs b/src/GF/Text/Russian.hs
index 1654652b8..14753f964 100644
--- a/src/GF/Text/Russian.hs
+++ b/src/GF/Text/Russian.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module Russian where
+module Russian (mkRussian, mkRusKOI8) where
 
 -- an ad hoc ASCII encoding. Delimiters: /_ _/
 mkRussian :: String -> String
diff --git a/src/GF/Text/Tamil.hs b/src/GF/Text/Tamil.hs
index 524a8a762..ec8d78ef1 100644
--- a/src/GF/Text/Tamil.hs
+++ b/src/GF/Text/Tamil.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module Tamil where
+module Tamil (mkTamil) where
 
 mkTamil :: String -> String
 mkTamil = digraphWordToUnicode . adHocToDigraphWord
diff --git a/src/GF/Text/UTF8.hs b/src/GF/Text/UTF8.hs
index 825bd2802..34116ffd9 100644
--- a/src/GF/Text/UTF8.hs
+++ b/src/GF/Text/UTF8.hs
@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module UTF8 where
+module UTF8 (decodeUTF8, encodeUTF8) where
 
 -- From the Char module supplied with HBC.
 -- code by Thomas Hallgren (Jul 10 1999)
diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs
index f24019b47..9039fbef0 100644
--- a/src/GF/Text/Unicode.hs
+++ b/src/GF/Text/Unicode.hs
@@ -9,10 +9,11 @@
 -- > CVS $Author $
 -- > CVS $Revision $
 --
--- (Description of the module)
+-- ad hoc Unicode conversions from different alphabets
+-- AR 12/4/2000, 18/9/2001, 30/5/2002, 26/1/2004
 -----------------------------------------------------------------------------
 
-module Unicode where
+module Unicode (mkUnicode, treat) where
 
 import Greek (mkGreek)
 import Arabic (mkArabic)
@@ -30,10 +31,6 @@ import ExtraDiacritics (mkExtraDiacritics)
 
 import Char
 
--- ad hoc Unicode conversions from different alphabets
-
--- AR 12/4/2000, 18/9/2001, 30/5/2002, 26/1/2004
-
 mkUnicode s = case s of
   '/':'/':cs -> treat [] mkGreek   unic ++ mkUnicode rest
   '/':'+':cs -> mkHebrew  unic ++ mkUnicode rest
@@ -58,7 +55,7 @@ mkUnicode s = case s of
      c:cs -> remClosing (c:u) cs
      _ -> (reverse u,[]) -- forgiving missing end
 
--- don't convert XML tags --- assumes <> always means XML tags
+-- | don't convert XML tags --- assumes \<\> always means XML tags
 treat :: String -> (String -> String) -> String -> String
 treat old mk s = case s of
      '<':cs -> mk (reverse old) ++ '<':noTreat cs