From 5bfaf10de597af504e6d2784309e533b09a6451c Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Fri, 28 Aug 2015 13:59:43 +0000
Subject: Comment out some dead code found with -fwarn-unused-binds

Also fixed some warnings and tightened some imports
---
 src/compiler/GF/Data/Str.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/compiler/GF/Data/Str.hs')

diff --git a/src/compiler/GF/Data/Str.hs b/src/compiler/GF/Data/Str.hs
index 6f65764c7..0c9ab05ec 100644
--- a/src/compiler/GF/Data/Str.hs
+++ b/src/compiler/GF/Data/Str.hs
@@ -20,8 +20,8 @@ module GF.Data.Str (
   allItems
 ) where
 
-import GF.Data.Operations
-import Data.List (isPrefixOf, isSuffixOf, intersperse)
+import GF.Data.Operations(prQuotedString)
+import Data.List (isPrefixOf, intersperse) --, isSuffixOf
 
 -- | abstract token list type. AR 2001, revised and simplified 20\/4\/2003
 newtype Str = Str [Tok]  deriving (Read, Show, Eq, Ord)
@@ -50,11 +50,11 @@ matchPrefix s vs t =
     (u,as) <- vs, 
     any (\c -> isPrefixOf c (concat (unmarkup t))) as
   ] ++ [s]
-
+{-
 matchSuffix :: String -> Ss -> [(Ss,[String])] -> Ss
 matchSuffix t s vs = 
   head ([u | (u,as) <- vs, any (\c -> isSuffixOf c t) as] ++ [s])
-
+-}
 unmarkup :: [String] -> [String]
 unmarkup = filter (not . isXMLtag) where
   isXMLtag s = case s of
-- 
cgit v1.2.3