X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FBits.hs;h=8b5432b2af89f4df3a94087f89b70dfa94c7c854;hb=0e9084b04f6c406baa4c2cb605ce897368674319;hp=62b64a39c2177f1e0f0f9ac8c29919ae3a9b14df;hpb=69b0e13fc8f0a3f4c1e18e8176d3eead86ad9d83;p=ghc-base.git

diff --git a/Data/Bits.hs b/Data/Bits.hs
index 62b64a3..8b5432b 100644
--- a/Data/Bits.hs
+++ b/Data/Bits.hs
@@ -126,7 +126,7 @@ class Num a => Bits a where
                   | i>0  = (x `shift` i) .|. (x `shift` (i-bitSize x))
     -}
 
-    -- | @bit i@ is a value with the @i@th bit set
+    -- | @bit i@ is a value with the @i@th bit set and all other bits clear
     bit               :: Int -> a
 
     -- | @x \`setBit\` i@ is the same as @x .|. bit i@