go str 0
#if __GLASGOW_HASKELL__ < 600
+
mallocForeignPtrBytes :: Int -> IO (ForeignPtr a)
mallocForeignPtrBytes n = do
r <- mallocBytes n
finalizerFree :: Ptr a -> IO ()
peekCAStringLen = peekCStringLen
+
+#elif __GLASGOW_HASKELL__ <= 602
+
+peekCAStringLen = peekCStringLen
+
#endif
\end{code}