From b96b36f43de3e2f8b58d5f539daa6f6d47f25870 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:43:48 +0000
Subject: removed src for 2.9

---
 src/GF/Infra/Comments.hs | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 src/GF/Infra/Comments.hs

(limited to 'src/GF/Infra/Comments.hs')

diff --git a/src/GF/Infra/Comments.hs b/src/GF/Infra/Comments.hs
deleted file mode 100644
index 0126db468..000000000
--- a/src/GF/Infra/Comments.hs
+++ /dev/null
@@ -1,43 +0,0 @@
-----------------------------------------------------------------------
--- |
--- Module      : Comments
--- Maintainer  : (Maintainer)
--- Stability   : (stable)
--- Portability : (portable)
---
--- > CVS $Date: 2005/04/21 16:22:34 $ 
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.5 $
---
--- comment removal
------------------------------------------------------------------------------
-
-module GF.Infra.Comments ( remComments
-		) where
-
--- | comment removal : line tails prefixed by -- as well as chunks in @{- ... -}@
-remComments :: String -> String
-remComments s = 
-  case s of
-    '"':s2 -> '"':pass remComments s2 -- comment marks in quotes not removed!
-    '{':'-':cs -> readNested cs
-    '-':'-':cs -> readTail cs
-    c:cs -> c : remComments cs
-    [] -> []
-   where
-     readNested t = 
-       case t of
-         '"':s2 -> '"':pass readNested s2
-         '-':'}':cs -> remComments cs
-         _:cs -> readNested cs
-         [] -> []
-     readTail t = 
-       case t of
-         '\n':cs -> '\n':remComments cs
-         _:cs -> readTail cs
-         [] -> []
-     pass f t = 
-       case t of
-         '"':s2 -> '"': f s2
-         c:s2 -> c:pass f s2
-         _ -> t
-- 
cgit v1.2.3