Added not operator for PropResult

713dc7d0 · Philipp Meyer · b6cb1c4e · 713dc7d0
Commit 713dc7d0 authored Dec 01, 2014 by Philipp Meyer
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

src/Property.hs src/Property.hs +7 -1

No files found.
--- a/src/Property.hs
+++ b/src/Property.hs
@@ -13,6 +13,7 @@ module Property
     PropResult(..),
     resultAnd,
     resultOr,
+     resultNot,
     resultsAnd,
     resultsOr)
 where
@@ -124,7 +125,7 @@ showPropertyName :: Property -> String
 showPropertyName p = showPropertyType (pcont p) ++ " property" ++
               (if null (pname p) then "" else " " ++ show (pname p))

-data PropResult = Satisfied | Unsatisfied | Unknown
+data PropResult = Satisfied | Unsatisfied | Unknown deriving (Show,Read)

 resultAnd :: PropResult -> PropResult -> PropResult
 resultAnd Satisfied x = x
@@ -138,6 +139,11 @@ resultOr _ Satisfied = Satisfied
 resultOr Unsatisfied x = x
 resultOr Unknown _ = Unknown

+resultNot :: PropResult -> PropResult
+resultNot Satisfied = Unsatisfied
+resultNot Unsatisfied = Unsatisfied
+resultNot Unknown = Unknown
+
 resultsAnd :: [PropResult] -> PropResult
 resultsAnd = foldr resultAnd Satisfied