X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FStringBuffer.lhs;fp=ghc%2Fcompiler%2Futils%2FStringBuffer.lhs;h=1a7020ba9a7b946c621f6171c093f950f23f381b;hb=98744cef7b82e7eefbb1c6f1d8b9e28c415939c4;hp=b12745fa989215fb20c92f9456d9244ac4706ee2;hpb=8abedd122bf6f96ce8151dc86dd2c7727b639de5;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index b12745f..1a7020b 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -19,7 +19,6 @@ module StringBuffer
 	prevChar,          -- :: StringBuffer -> Char -> Char
 	lookAhead,         -- :: StringBuffer -> Int  -> Char
 	atEnd,		   -- :: StringBuffer -> Bool
-	difference,	   -- :: StringBuffer -> StringBuffer -> Int
 
 	-- * Moving
 	stepOn, stepOnBy,
@@ -143,9 +142,6 @@ lookAhead (StringBuffer arr# l# c#) (I# i#) =
  where 
    off = c# +# i#
 
-difference :: StringBuffer -> StringBuffer -> Int
-difference (StringBuffer _ _ c1#) (StringBuffer _ _ c2#) = I# (c2# -# c1#)
-
 -- -----------------------------------------------------------------------------
 -- Moving