Typo
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 28 Feb 2013 10:26:50 +0000 (10:26 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 28 Feb 2013 10:26:50 +0000 (10:26 +0000)
src/GHC/HeapView.hs

index c0a6847..563782a 100644 (file)
@@ -101,7 +101,7 @@ instance Show Box where
        pad_out ls = 
           '0':'x':(replicate (2*wORD_SIZE - length ls) '0') ++ ls
 
        pad_out ls = 
           '0':'x':(replicate (2*wORD_SIZE - length ls) '0') ++ ls
 
--- | Boxes can be compared, but this is not pure, as different heap objects an,
+-- | Boxes can be compared, but this is not pure, as different heap objects can,
 -- after garbage collection, become the same object.
 areBoxesEqual :: Box -> Box -> IO Bool
 areBoxesEqual (Box a) (Box b) = case reallyUnsafePtrEqualityUpToTag# a b of
 -- after garbage collection, become the same object.
 areBoxesEqual :: Box -> Box -> IO Bool
 areBoxesEqual (Box a) (Box b) = case reallyUnsafePtrEqualityUpToTag# a b of