X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fparser%2FLexer.x;h=ffabc61f5ec9fcde357fd6f8dd60c134fed14fc5;hb=46bef1c09f499c5b34a00b650614bebfa1d6ba4b;hp=fb7a53543324da5cb3a4afa0ebce5c699fecd452;hpb=bc65cfb23f1715a7a172e06ab8f067ca68f84e90;p=ghc-hetmet.git

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index fb7a535..ffabc61 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -65,7 +65,7 @@ import SrcLoc
 import UniqFM
 import DynFlags
 import Ctype
-import Util		( maybePrefixMatch, readRational )
+import Util		( readRational )
 
 import Control.Monad
 import Data.Bits
@@ -1323,7 +1323,7 @@ lex_escape = do
 		Just (c3,i3) -> 
 		   let str = [c1,c2,c3] in
 		   case [ (c,rest) | (p,c) <- silly_escape_chars,
-			      	     Just rest <- [maybePrefixMatch p str] ] of
+			      	     Just rest <- [stripPrefix p str] ] of
 			  (escape_char,[]):_ -> do
 				setInput i3
 				return escape_char