1{-# LANGUAGE ConstraintKinds #-} 2module RIO.Prelude.Renames 3 ( sappend 4 , LByteString 5 , LText 6 , UVector 7 , SVector 8 , GVector 9 , toStrictBytes 10 , fromStrictBytes 11 , yieldThread 12 ) where 13 14import Prelude 15import qualified Data.ByteString as B 16import qualified Data.ByteString.Lazy as BL 17import qualified Data.Vector.Generic as GVector 18import qualified Data.Vector.Storable as SVector 19import qualified Data.Vector.Unboxed as UVector 20import qualified Data.Text.Lazy as TL 21import qualified Data.Semigroup 22import UnliftIO (MonadIO) 23import qualified UnliftIO.Concurrent (yield) 24 25sappend :: Data.Semigroup.Semigroup s => s -> s -> s 26sappend = (Data.Semigroup.<>) 27 28type UVector = UVector.Vector 29type SVector = SVector.Vector 30type GVector = GVector.Vector 31 32type LByteString = BL.ByteString 33type LText = TL.Text 34 35toStrictBytes :: LByteString -> B.ByteString 36toStrictBytes = BL.toStrict 37 38fromStrictBytes :: B.ByteString -> LByteString 39fromStrictBytes = BL.fromStrict 40 41yieldThread :: MonadIO m => m () 42yieldThread = UnliftIO.Concurrent.yield 43{-# INLINE yieldThread #-} 44