text-ldap-0.1.1.3: test/Error.hs

module Error (qcEither) where

import Test.QuickCheck (Result (Success))

qcEither :: Test.QuickCheck.Result -> Either String ()
qcEither =  d  where
  d (Success {}) = Right ()
  d x            = Left $ show x