X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FBits.hs;h=c9230c59bffc61acf927ea9da6721c4f87c4a27e;hb=b99920eab7fba4e027fd39985840d4e854b8f923;hp=62b64a39c2177f1e0f0f9ac8c29919ae3a9b14df;hpb=42cce945381267dade7f876f493af89962a28f3b;p=ghc-base.git

diff --git a/Data/Bits.hs b/Data/Bits.hs
index 62b64a3..c9230c5 100644
--- a/Data/Bits.hs
+++ b/Data/Bits.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 -----------------------------------------------------------------------------
 -- |
@@ -126,7 +127,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@