@@ -64,18 +64,12 @@ module Data.Text.Encoding
6464#endif
6565 ) where
6666
67−import Control.Exception (evaluate, try)
68−
6967#if __GLASGOW_HASKELL__ >= 702
7068import Control.Monad.ST.Unsafe (unsafeIOToST, unsafeSTToIO)
7169#else
7270import Control.Monad.ST (unsafeIOToST, unsafeSTToIO)
7371#endif
7472
75−import Control.Monad.ST (runST)
76−import Data.ByteString as B
77−import Data.ByteString.Internal as B hiding (c2w)
78−
7973#if MIN_VERSION_bytestring(0,10,4)
8074import Data.Bits ((.&.))
8175import Data.Text.Internal.Unsafe.Char (ord)
@@ -87,12 +81,17 @@ import qualified Data.ByteString.Builder.Prim.Internal as BP
8781import qualified Data.Text.Internal.Encoding.Utf16 as U16
8882#endif
8983
84+import Control.Exception (evaluate, try)
85+import Control.Monad.ST (runST)
86+import Data.ByteString as B
87+import Data.ByteString.Internal as B hiding (c2w)
9088import Data.Text ()
9189import Data.Text.Encoding.Error (OnDecodeError, UnicodeException, strictDecode)
9290import Data.Text.Internal (Text(..), safe, textP)
93−import Data.Text.Internal.Unsafe.Shift (shiftR)
9491import Data.Text.Internal.Private (runText)
9592import Data.Text.Internal.Unsafe.Char (unsafeWrite)
93+import Data.Text.Internal.Unsafe.Shift (shiftR)
94+import Data.Text.Unsafe (unsafeDupablePerformIO)
9695import Data.Word (Word8, Word32)
9796import Foreign.C.Types (CSize(..))
9897import Foreign.ForeignPtr (withForeignPtr)
@@ -103,7 +102,6 @@ import GHC.Base (ByteArray#, MutableByteArray#)
103102import qualified Data.Text.Array as A
104103import qualified Data.Text.Internal.Encoding.Fusion as E
105104import qualified Data.Text.Internal.Fusion as F
106−import Data.Text.Unsafe (unsafeDupablePerformIO)
107105
108106#include "text_cbits.h"
109107