From df0c4f81fa9c620d7c63af79c0b183a6beccf0bd Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@chalmers.se>
Date: Thu, 22 May 2008 11:59:31 +0000
Subject: remove all files that aren't used in GF-3.0

---
 src-3.0/GF/Text/ExtraDiacritics.hs | 37 -------------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100644 src-3.0/GF/Text/ExtraDiacritics.hs

(limited to 'src-3.0/GF/Text/ExtraDiacritics.hs')

diff --git a/src-3.0/GF/Text/ExtraDiacritics.hs b/src-3.0/GF/Text/ExtraDiacritics.hs
deleted file mode 100644
index f3d811c2c..000000000
--- a/src-3.0/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
-- 
cgit v1.2.3