module FoundationDB.Layer.Directory.Internal.Error where

import Control.Monad.Error.Class (MonadError (..))
import FoundationDB.Error (DirLayerUserError, Error (..), FDBHsError (..))
import FoundationDB.Transaction (Transaction)

throwDirInternalError :: String -> Transaction a
throwDirInternalError :: String -> Transaction a
throwDirInternalError = Error -> Transaction a
forall e (m :: * -> *) a. MonadError e m => e -> m a
throwError (Error -> Transaction a)
-> (String -> Error) -> String -> Transaction a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FDBHsError -> Error
Error (FDBHsError -> Error) -> (String -> FDBHsError) -> String -> Error
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> FDBHsError
DirectoryLayerInternalError

throwDirUserError :: DirLayerUserError -> Transaction a
throwDirUserError :: DirLayerUserError -> Transaction a
throwDirUserError = Error -> Transaction a
forall e (m :: * -> *) a. MonadError e m => e -> m a
throwError (Error -> Transaction a)
-> (DirLayerUserError -> Error)
-> DirLayerUserError
-> Transaction a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FDBHsError -> Error
Error (FDBHsError -> Error)
-> (DirLayerUserError -> FDBHsError) -> DirLayerUserError -> Error
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DirLayerUserError -> FDBHsError
DirLayerUserError