~ Use testing flag to hide internals.

We need some internal functions in tests and benchmarks, so it's better
to just use CPP for this.

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Data/Bitfield.hs b/src/Data/Bitfield.hs
index a1033ff2..ee0570e7 100644
--- a/src/Data/Bitfield.hs
+++ b/src/Data/Bitfield.hs
@@ -34,10 +34,10 @@ module Data.Bitfield
        , getBitfield, putBitfield
        , bitfieldByteCount
 
--- #ifdef TESTING
-       , -- * Debug
-         mkBitfield
--- #endif
+#if  defined (TESTING)
+         -- * Debug
+       , mkBitfield
+#endif
        ) where
 
 import Control.Monad