Tidy up some assert-related silliness
--HG--
extra : convert_revision : a754f5d6db4b2b39daf9602dd499a6e54ddec24f
commita9152d242a61ca02e86319f28359ddfd3618cb5c
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 29 Aug 2010, 06:56 (16 years ago)
parenta85f57c
Data/Text/Array.hs+3
@@ -33,6 +33,9 @@ module Data.Text.Array
3333 , copyM
3434 , copyI
3535 , empty
36+#if defined(ASSERTS)
37+ , length
38+#endif
3639 , run
3740 , run2
3841 , toList
Data/Text/Lazy/Builder.hs−3
@@ -29,9 +29,6 @@ module Data.Text.Lazy.Builder
2929 , flush
3030 ) where
3131
32−#if defined(ASSERTS)
33−import Control.Exception (assert)
34−#endif
3532import Control.Monad.ST (ST, runST)
3633import Data.Bits ((.&.))
3734import Data.Monoid (Monoid(..))