module BitMEXClient.CustomPrelude ( module X ) where import Control.Exception.Safe as X (MonadCatch) import Control.Monad as X (fail) import Control.Monad.Reader as X ( Monad , MonadIO , MonadReader , MonadTrans , ReaderT , asks , liftIO , runReaderT ) import Crypto.Hash as X (Digest) import Crypto.Hash.Algorithms as X (SHA256) import Crypto.MAC.HMAC as X ( hmac , hmacGetDigest ) import Data.Aeson as X ( FromJSON , SumEncoding (UntaggedValue) , ToJSON , Value (..) , constructorTagModifier , decode , defaultOptions , encode , fieldLabelModifier , genericParseJSON , genericToJSON , parseJSON , sumEncoding , toJSON , withObject , (.:?) ) import Data.Char as X (toLower) import Data.Monoid as X ((<>)) import Data.Time.Clock.POSIX as X (getPOSIXTime) import GHC.Generics as X import Lens.Micro as X ((.~), (^.)) import Network.HTTP.Client as X ( Manager , newManager ) import Network.HTTP.Client.TLS as X ( tlsManagerSettings ) import Network.HTTP.Types.URI as X (renderQuery) import Network.Socket as X ( withSocketsDo ) import Network.WebSockets as X ( ClientApp , Connection , receiveData , sendTextData ) import Prelude as X ( Applicative , Bool (..) , Double , Eq , Functor , IO , Int , Integer , Maybe (..) , RealFrac , Show , String , drop , filter , floor , head , map , return , show , ($) , (*) , (++) , (.) , (/=) , (<$>) , (>>=) ) import Wuss as X ( runSecureClient )