@@ -9,7 +9,9 @@ import Data.Binary.Put ( runPut )
99import qualified Data.Binary.Get as BG ( getWord8, getWord16be, getWord32be, getWord64be )
1010import qualified Data.Binary.Put as BP ( putWord8, putWord16be, putWord32be, putWord64be )
1111
12−import Bits
12+import Data.Binary.Bits
13+import Data.Binary.Bits.Get
14+import Data.Binary.Bits.Put
1315
1416import Control.Applicative
1517import Data.Bits
@@ -19,9 +21,6 @@ import Foreign.Storable
1921import System.Random
2022import System
2123
22−import BitsGet
23−import BitsPut
24−
2524import Test.Framework.Options ( TestOptions'(..) )
2625import Test.Framework.Providers.QuickCheck2 ( testProperty )
2726import Test.Framework.Runners.Console ( defaultMain )