diff options
Diffstat (limited to 'common/src/Common/Util/Validation.hs')
-rw-r--r-- | common/src/Common/Util/Validation.hs | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/common/src/Common/Util/Validation.hs b/common/src/Common/Util/Validation.hs deleted file mode 100644 index f195d95..0000000 --- a/common/src/Common/Util/Validation.hs +++ /dev/null @@ -1,13 +0,0 @@ -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 |