module Common.Util.Validation
  ( isSuccess
  , isFailure
  ) where

import           Data.Validation (Validation (Failure, Success))

isSuccess :: forall a b. Validation a b -> Bool
isSuccess (Failure _) = False
isSuccess (Success _) = True

isFailure :: forall a b. Validation a b -> Bool
isFailure = not . isSuccess