module Database.Memcached.Binary.Either
#include "Header.txt"
#define NoReturn (Maybe MemcachedException)
#define HasReturn Either MemcachedException
successHasReturn :: a -> IO (HasReturn a)
successHasReturn = return . Right
successNoReturn :: IO NoReturn
successNoReturn = return Nothing
failureHasReturn :: I.Failure (HasReturn a)
failureHasReturn i m = return . Left $ MemcachedException i m
failureNoReturn :: I.Failure NoReturn
failureNoReturn i m = return . Just $ MemcachedException i m
#include "Common.hs"