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