The clarifai-hs from caneroj1

caneroj1 / clarifai-hs Goto Github PK

View Code? Open in Web Editor NEW

Haskell API Client for Clarifai.

License: MIT License

Haskell 100.00%

clarifai-hs's People

Contributors

Stargazers

Watchers

clarifai-hs's Issues

transformers api?

Hi,

I've been playing around with this this morning and thought it might be helpful to have a transformers-based api on it - means you don't have to keep checking for errors & repeating the client argument everywhere.

client code looks like this

runFunc :: String -> String -> IO ()
runFunc id secret = do
  runClarifaiT (id,secret) $ do
    infoM >>= liftIO . print
    tagsets <- tagM ["./eastern.jpg", "./cat.jpg"]
    liftIO $ print tagsets

lib code behind it looks like this:


import Control.Monad (liftM, void)
import Control.Monad.IO.Class (MonadIO, liftIO)
import Control.Monad.Trans.Class (lift)
import Control.Monad.Trans.Either (EitherT(..), left, runEitherT)
import Control.Monad.Trans.Reader (ReaderT, ask, runReaderT)
import Network.Clarifai
import Data.Vector (Vector)

type ClientError = (Int,String)

newtype ClarifaiT m a = ClarifaiT {
  unCreateClient :: ReaderT Client
                    (EitherT ClientError m) a }
                          deriving (Functor, Applicative, Monad, MonadIO)

runClarifaiT :: MonadIO m => (String,String) -> ClarifaiT m a -> m (Either ClientError a)
runClarifaiT (id,secret) f = do
  (r :: Either ClientError Client) <- liftIO   $ authorize (App id secret)
  case r of
   Left e -> return $ Left e
   Right r ->  runEitherT $ runReaderT  (unCreateClient f) r

wrap :: MonadIO m => (Client-> IO (Either ClientError a0)) -> ClarifaiT m a0
wrap f = ClarifaiT $ either (lift.left) return =<< liftIO . f =<< ask

infoM :: MonadIO m => ClarifaiT m Info
infoM = wrap info

tagM :: MonadIO m => [FilePath] -> ClarifaiT m (Vector TagSet)
tagM fn = wrap (`tag` fn)

thought i'd check with you before bothering to wrap up the rest of the API - I know it looks a bit forbidding, but the client code really does look a lot nicer to my eyes.