Fix DA.Logic.isBool comment (#14532)

CHANGELOG_BEGIN
CHANGELOG_END
This commit is contained in:
Johan Sjödin 2022-07-26 17:20:40 +02:00 committed by GitHub
parent a9d5367dbf
commit 3968bcf216
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -178,8 +178,8 @@ reduce (Disjunction ds) =
in foldl work false xs in foldl work false xs
-- | `isBool` attempts to convert a formula to a bool. It satisfies -- | `isBool` attempts to convert a formula to a bool. It satisfies
-- `isBool true == Right True` and `toBool false == Right False`. -- `isBool true == Some True` and `isBool false == Some False`.
-- Otherwise, it returns `Left x`, where `x` is the input. -- Otherwise, it returns `None`.
isBool : Formula t -> Optional Bool isBool : Formula t -> Optional Bool
isBool x = case x of isBool x = case x of
Conjunction [] -> Some True Conjunction [] -> Some True