{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE FlexibleContexts #-} module Web.Sqids ( sqidsVersion , defaultSqidsOptions , SqidsOptions(..) , SqidsError(..) , MonadSqids , sqidsContext , SqidsT , runSqidsT , sqidsT , Sqids , runSqids , sqids , encode , decode ) where import Web.Sqids.Internal ( sqidsVersion , defaultSqidsOptions , SqidsOptions(..) , SqidsError(..) , MonadSqids , sqidsContext , SqidsT , runSqidsT , sqidsT , Sqids , runSqids , sqids , sqidsEncode , sqidsDecode ) import Data.Text (Text) encode :: (MonadSqids Int m) => [Int] -> m Text encode :: forall (m :: * -> *). MonadSqids Int m => [Int] -> m Text encode = forall s (m :: * -> *). MonadSqids s m => [s] -> m Text sqidsEncode decode :: (MonadSqids Int m) => Text -> m [Int] decode :: forall (m :: * -> *). MonadSqids Int m => Text -> m [Int] decode = forall s (m :: * -> *). MonadSqids s m => Text -> m [s] sqidsDecode