Rename a variable to avoid name conflicts in haddock
authorIan Lynagh <igloo@earth.li>
Sun, 15 Jul 2012 00:04:32 +0000 (01:04 +0100)
committerIan Lynagh <igloo@earth.li>
Sun, 15 Jul 2012 00:04:32 +0000 (01:04 +0100)
compiler/utils/FastString.lhs

index 9131ca2..5be6dbc 100644 (file)
@@ -242,7 +242,7 @@ data FastString = FastString {
       n_bytes :: {-# UNPACK #-} !Int, -- number of bytes
       n_chars :: {-# UNPACK #-} !Int, -- number of chars
       buf     :: {-# UNPACK #-} !(ForeignPtr Word8),
-      ref     :: {-# UNPACK #-} !(IORef (Maybe FastZString))
+      fs_ref  :: {-# UNPACK #-} !(IORef (Maybe FastZString))
   } deriving Typeable
 
 instance Eq FastString where