X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FFastString.lhs;h=ac79b5b75fa87f48dd316fca072119e05938e379;hp=cd93c78a47d1071e1564051563647e6bcfe62787;hb=e761a777f2440ca1b8d8b40848cc5aa30d889ff6;hpb=d78ab147ec3d8c3b06b6e922bed4cd9837c9c797

diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs
index cd93c78..ac79b5b 100644
--- a/compiler/utils/FastString.lhs
+++ b/compiler/utils/FastString.lhs
@@ -573,10 +573,6 @@ pokeCAString ptr str =
   in
   go str 0
 
-#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 602
-peekCAStringLen = peekCStringLen
-#endif
-
 {-# NOINLINE sLit #-}
 sLit :: String -> LitString
 sLit x  = mkLitString x