    -- |
    -- Experimental combinators, that may become part of the main distribution, if
    -- they turn out to be useful for a wider audience.
    module Test.Hspec.Expectations.Contrib (

      module Test.Hspec.Expectations

    -- * Predicates
    -- | (useful in combination with `shouldSatisfy`)
    , isLeft
    , isRight
    ) where

    import Test.Hspec.Expectations

    isLeft :: Either a b -> Bool
    isLeft (Left  _) = True
    isLeft (Right _) = False

    isRight :: Either a b -> Bool
    isRight (Left  _) = False
    isRight (Right _) = True