From 3498b67c4dac7850d24df6a70583f5868b5a288e Mon Sep 17 00:00:00 2001 From: Sam T Date: Mon, 20 May 2013 15:59:54 +0400 Subject: ~ Unify export lists. --- src/Data/Bitfield.hs | 11 ++++++----- src/Data/Bitfield/Mutable.hs | 16 +++------------- 2 files changed, 9 insertions(+), 18 deletions(-) diff --git a/src/Data/Bitfield.hs b/src/Data/Bitfield.hs index ac647791..f7240c8a 100644 --- a/src/Data/Bitfield.hs +++ b/src/Data/Bitfield.hs @@ -18,10 +18,10 @@ module Data.Bitfield -- * Construction , empty, full - , toList - , fromByteString, toByteString -- * Query + , bitfieldByteCount, bitfieldBitCount + , haveCount, completeness , findMin, findMax , union, intersection, difference, combine @@ -29,20 +29,21 @@ module Data.Bitfield -- * Serialization , getBitfield, putBitfield - , bitfieldByteCount, bitfieldBitCount + -- * Conversion + , toList + , fromByteString, toByteString + -- * Debug , aligned, alignLow, alignedZip ) where import Control.Applicative hiding (empty) -import Data.Array.Unboxed import Data.Bits import Data.ByteString (ByteString) import qualified Data.ByteString as B import qualified Data.ByteString.Internal as B import Data.List as L hiding (union) -import Data.Maybe import Data.Serialize import Data.Word diff --git a/src/Data/Bitfield/Mutable.hs b/src/Data/Bitfield/Mutable.hs index 5de84dc8..504c4cd0 100644 --- a/src/Data/Bitfield/Mutable.hs +++ b/src/Data/Bitfield/Mutable.hs @@ -25,31 +25,21 @@ module Data.Bitfield.Mutable -- * Construction , empty, full + , create, releaseIntSet -- * Query -- , lookup, member, notMember -- , size , maxSize + , lookupUnsafe -- * Modification -- , insert, delete + , insertUnsafe, deleteUnsafe -- * Conversion , fromByteString, toByteString - - -- * Unsafe operations - -- ** Construction - , create, releaseIntSet - - -- ** Modification - , insertUnsafe, deleteUnsafe - - -- ** Query - , lookupUnsafe - - -- ** Conversion , fromByteStringUnsafe, toByteStringUnsafe - ) where import Control.Applicative hiding (empty) -- cgit v1.2.3