module Data.TypeID.V7.Unsafe
(
unsafeGenTypeID
, unsafeGenTypeID'
, unsafeGenTypeIDs
, unsafeParseString
, unsafeParseText
, unsafeParseByteString
, unsafeString2ID
, unsafeText2ID
, unsafeByteString2ID
) where
import Control.Monad.IO.Class
import Data.ByteString.Lazy (ByteString)
import Data.Text (Text)
import Data.TypeID.Class
import qualified Data.TypeID.Internal as TID
import Data.TypeID.V7 (TypeID)
import Data.UUID.Types.Internal (UUID)
import Data.Word
unsafeGenTypeID :: MonadIO m => Text -> m TypeID
unsafeGenTypeID :: forall (m :: * -> *). MonadIO m => Text -> m TypeID
unsafeGenTypeID = forall (m :: * -> *). MonadIO m => Text -> m TypeID
TID.unsafeGenTypeID
{-# INLINE unsafeGenTypeID #-}
unsafeGenTypeID' :: MonadIO m => Text -> m TypeID
unsafeGenTypeID' :: forall (m :: * -> *). MonadIO m => Text -> m TypeID
unsafeGenTypeID' = forall (m :: * -> *). MonadIO m => Text -> m TypeID
TID.unsafeGenTypeID'
{-# INLINE unsafeGenTypeID' #-}
unsafeGenTypeIDs :: MonadIO m => Text -> Word16 -> m [TypeID]
unsafeGenTypeIDs :: forall (m :: * -> *). MonadIO m => Text -> Word16 -> m [TypeID]
unsafeGenTypeIDs = forall (m :: * -> *). MonadIO m => Text -> Word16 -> m [TypeID]
TID.unsafeGenTypeIDs
{-# INLINE unsafeGenTypeIDs #-}
unsafeParseString :: String -> TypeID
unsafeParseString :: String -> TypeID
unsafeParseString = forall (version :: UUIDVersion). String -> TypeID' version
TID.unsafeParseString
{-# INLINE unsafeParseString #-}
unsafeParseText :: Text -> TypeID
unsafeParseText :: Text -> TypeID
unsafeParseText = forall (version :: UUIDVersion). Text -> TypeID' version
TID.unsafeParseText
{-# INLINE unsafeParseText #-}
unsafeParseByteString :: ByteString -> TypeID
unsafeParseByteString :: ByteString -> TypeID
unsafeParseByteString = forall (version :: UUIDVersion). ByteString -> TypeID' version
TID.unsafeParseByteString
{-# INLINE unsafeParseByteString #-}