From c94b44b51b54ddf1d19dd47408d6d96ab97c1449 Mon Sep 17 00:00:00 2001 From: Boyd Stephen Smith Jr Date: Sun, 16 Mar 2014 22:42:32 -0500 Subject: [PATCH] Add missing haddocks. --- src/Cryptsy/API/Public.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/Cryptsy/API/Public.hs b/src/Cryptsy/API/Public.hs index 55a5089..2bdccef 100644 --- a/src/Cryptsy/API/Public.hs +++ b/src/Cryptsy/API/Public.hs @@ -36,10 +36,20 @@ import Cryptsy.API.Public.OrderBook import Cryptsy.API.Public.OrderData import Cryptsy.API.Public.Types +{-| +Like 'defaultRunPubCryptsy', but the resulting cookir jar is ignored. +-} defaultEvalPubCryptsy :: PubCryptsy a -> IO (Either CryptsyError a) defaultEvalPubCryptsy = fmap fst . defaultRunPubCryptsy {-# INLINABLE defaultEvalPubCryptsy #-} +{-| +Converts a public cryptsy action to an action in the IO Monad, using a new +manager created from 'tlsManagerSettings' and closed as the last part of the IO +action and starting from an empty cookie jar. Both the resulting cookie jar +and either the resolt of the public cryptsy action or the first cryptsy error +encountered are the results of the IO action. +-} defaultRunPubCryptsy :: PubCryptsy a -> IO (Either CryptsyError a, CookieJar) defaultRunPubCryptsy = withManager tlsManagerSettings . (defaultRunInReader .) . runReaderT -- 2.11.4.GIT