GF/src is now for 2.9, and the new sources are in src-3.0 - keep it this way until the release of GF 3

1 files changed, 0 insertions, 37 deletions

diff --git a/src-2.9/GF/Text/ExtraDiacritics.hs b/src-2.9/GF/Text/ExtraDiacritics.hs
deleted file mode 100644
index f3d811c2c..000000000
--- a/src-2.9/GF/Text/ExtraDiacritics.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-----------------------------------------------------------------------
--- |
--- Module      : ExtraDiacritics
--- Maintainer  : (Maintainer)
--- Stability   : (stable)
--- Portability : (portable)
---
--- > CVS $Date: 2005/04/21 16:23:36 $ 
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.5 $
---
--- (Description of the module)
------------------------------------------------------------------------------
-
-module GF.Text.ExtraDiacritics (mkExtraDiacritics) where
-
-mkExtraDiacritics :: String -> String
-mkExtraDiacritics = mkExtraDiacriticsWord
-
-mkExtraDiacriticsWord :: String -> String
-mkExtraDiacriticsWord str = case str of
-  [] -> []
-  '<' : cs -> '<' : spoolMarkup cs
-  -- 
-  '/' : cs -> toEnum 0x0301 : mkExtraDiacriticsWord cs
-  '~' : cs -> toEnum 0x0306 : mkExtraDiacriticsWord cs
-  ':' : cs -> toEnum 0x0304 : mkExtraDiacriticsWord cs -- some of these could be put in LatinA
-  '.' : cs -> toEnum 0x0323 : mkExtraDiacriticsWord cs
-  'i' : '-' : cs -> toEnum 0x0268 : mkExtraDiacriticsWord cs -- in IPA extensions
-  -- Default 
-  c : cs -> c : mkExtraDiacriticsWord cs
-
-spoolMarkup :: String -> String
-spoolMarkup s = case s of
-   [] -> [] -- Shouldn't happen
-   '>' : cs -> '>' : mkExtraDiacriticsWord cs
-   c1 : cs -> c1 : spoolMarkup cs