From 3498b67c4dac7850d24df6a70583f5868b5a288e Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
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(-)

(limited to 'src/Data')

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